Help for this page
while(<>) { //do stuff }
open FST, $ARGV[0]; while(<FST>) ... { // other stuff with all files but $ARGV[0] }