if (!$ARGV[0]){
    print "Input File:\n";
    $fn = ;
    chop($fn);
    }

##</code><code>##

if (!$ARGV[0]){
    print "Input File:\n";
    chomp($fn = <STDIN>);
    }