my $datei = "filename.txt"; print '$datei' . "\n";