use warnings;
use strict;

my $filename = "Testfile.txt";
open FILE, $filename or die "Dateifehler: $!";
print <FILE>;
close FILE;
<>;