#!/usr/bin/env perl
# Core Modules
use strict;
use warnings;

open my $fh, '<', 'datei_die_nicht_existiert' or do {
    require Carp;
    Carp::confess "asd";
};
close $fh;