#!/usr/bin/perl

for(glob '*')
{
  /^$0$/ and next;  # don't process the script
  open(I,"<$_") or die("$_: $!");
  open(O,">$_.$$") or die("$_: $!");

  print O $_,"\n";
  { $. > 4 ? last : print O while(<I>); }

  close(I);
}

exit;