open( my $handle, '>', $file ) or die "open($file,w) failed: $!";

print $handle "Dein Text" or die "print to $file failed: $!";

close $handle or die "close $file failed: $!";