append'e en linie i begyndelsen af en eksisterende fil

Jeg står og mangler en idé til hvordan ovenstående kan gøres. Mit problem er at jeg autogenererer nogle filer vha. et C++-program. Disse filer scannes så via diverse perl-scripts. Hvis de pågældende filer ikke indeholder en linie der fungerer som en slags header, går perl-scriptet galt. Tanken er så at kontrollere om de genererede filer rent faktisk indeholder denne headerlinie.
Her er hvad jeg er kommet frem til indtil videre:

open ($fh, "+<xxx.yyy");
$line = <$fh>;
$line = substr($line,0,3);

if($line ne "esr")
{
  #her appendes hvis headerinfo mangler
}

jeg havde tænkt mig noget i stil med:
print $fh "et-eller-andet";

men det vil jo skrive den pågældende linie i slutningen af filen og det kan jeg ikke bruge til noget.