# slurpe Inhalt der Datei
my $Data = do{ local (@ARGV,$/) = "C:/Freunde/$Dateiname"; <>};