my $file = shift(@ARGV); # for one file