Like sed and awk, Perl has line addressing:

while (<>)
{
   print if 3..eof 
}
[download]