open(FILE, "< code.txt");
    seek(FILE, 8, 0);
    read(FILE, $Ausgabe, 13);
close(FILE);

print $Ausgabe;