if (!@ARGV) { print "Usage: perl $0 \nType $0 h for Help!\n"; exit(0); }