use my output my inc artnum

#!/usr/bin/perl -w

use Date::Manip;

my $output = "";

my $inc = 0;

$artnum .= scalar(<>);  # art num

$newsgroups = <>;

$path = <>;

$date = <>;

$subject = <>;

$foo = $date;

chomp $foo;

$newdate = &ParseDate($foo);

# print "ND1: $newdate\n";

$newdate = &UnixDate($newdate, '%a, %d %b %Y %T GMT');

# print "ND2: $newdate\n";

@newsgroups = split(',', $newsgroups);

foreach $x (@newsgroups){

  $x = "oldnews." . $x;

}

$newnewsgroups = join(',', @newsgroups);

$output .= "Newsgroups: $newnewsgroups";

f ($subject =~ /\S/) {

  $output .= "Subject: $subject";

} else {

  $output .= "Subject: none\n";

}

$output .= "Date: $newdate\n";

$output .= "From: oldnews-conversion\@complete.org\n";

$output .= "Path: not-for-mail\n";

$foo = $artnum;

chomp $foo;

#$bar = $newsgroups;

#chomp $bar;

$output .= "Message-ID: <oldnews.conversion.$foo\@oldnews.complete.org>\n";

$inc += 1;

$output .= "\n";

$output .= $artnum;

$output .= $newsgroups;

$output .= $path;

$output .= $date;

$output .= $subject;

$output .= join('', <>);

  print "#! rnews " . length($output) . "\n";

  print $output;

  $output = '';

}