open my $handle, '<', $file or die $!;