if ( -e $file ) {
    die "Datei gibt es schon\n";
}
open my $fh, '>', $file  or  die $!;