open my $handle, '<', "filename" or die "Cannot open: $!";