Nice, but that still loops over the entire file... I'd exit out of the loop after the fifth line like so:

while(<>) {
  1 .. 5 ? print : last;
}
[download]

-Blake