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);