my $file = shift 
    open(FILE, $file) or die "Can't open '$file': $!";