No shortcut really, you have to open the file, read in the contents, and then re-write it, minus the first line:

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);
[download]

If you don't want to mess around with the seeking and truncating, just open it twice:

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);
[download]