# oeffne "$filename" (ueber)schreibend oder beende das Skript mit Fehlermeldung
open( my $handle, '>', $filename ) or die "open($filename, w) failed: $!\n";

print $handle "data\n";

close( $handle ) or die "close($filename) failed: $!\n";