my $file = shift @ARGV;