my $file = $ARGV[0];
open(FILE,"$file") or die "can't open $file";