my $inputfile = "tabulation.txt"; my $outputfile = "RSCDSpublications.xml"; if ( scalar( @ARGV ) > 0 ) { $inputfile = $ARGV[0]; } if ( scalar( @ARGV ) > 1 ) { $outputfile = $ARGV[1]; } open INPUT, "<$inputfile" || die "Couldn't open $inputfile\n"; open OUTPUT, ">$outputfile" || die "Couldn't open $outputfile\n"; print OUTPUT "\n"; print OUTPUT "