Falls Du mit einem vernünftigen Betriebssystem arbeitest (also: Unix), könnte sich ein Blik auf "man head" lohnen.
In Perl kannst Du dann etwas in der Art
open(FILE, "head -33 $deineDatei ");
schreiben. Genaue Syntax zum Rein-Pipen mußt Du mal in den Man-Pages nachsehen. Die habe ich jetzt nicht im Kopf.