$in_filename = "test.out"; 
open (IN,"$in_filename") or die "Can't open $in_filename:$!\n";