my $x=<STDIN>; chomp($x);

open(DATEI, ">", $x) or die $!;
print DATEI ("Hello World!\n");
close(DATEI);