eval { 
    open my $fh, '<', $file or die $!;
    # noch was
    close $fh or die $!;
};
if ( $@ ) {
    warn "Konnte irgendwas nicht machen!\n"
}