use File::Slurp;
$inahlt = read_file("datei");