open(FOO, "+< $myfile") || die "Could not open $myfile $!\n";
@bar=<FOO>;
shift(@bar);
seek(FOO, 0, 0);
truncate(FOO, tell);
print FOO @bar;
close(FOO);

##</code><code>##

open(FOO, "$myfile") || die "Could not open $myfile $!\n";
@bar=<FOO>;
shift(@bar);
close(FOO);
open(FOO, ">$myfile") || die "Could not open $myfile $!\n";
print FOO @bar;
close(FOO);