open($handle, '<', $file) or die "Can't open '$file' for reading: $!";