die "$0: missing source file\n" unless @ARGV;
my $infile = shift;