my $infile = !@ARGV?<>:shift @ARGV; my $outfile = !@ARGV?<>:shift @ARGV; handlefix($infile, $outfile);