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