open my $fh, '>', 'dateiname' or die $!;