use strict; use warnings; #### open IN, $file or die "Can't open $file: $!\n";