#...
 open(LESEN,"<","C://Freunde/$Dateiname");
 #ist wo für jede Datei deren Inhalt abgespeichert wird
 my @inhalt=<LESEN>;
 # inhalt zusammenfügen:
 my $Data=join(' ', @inhalt);
}