in reply to System call input and output files
die qq(usage: $0 infile outfile\n) unless @ARGV == 2; my ( $infile, $outfile ) = @ARGV; open ( IN, "< $infile ... open ( OUT, "> $infile ... [download]
Cheers, Sören