$cnt=1;
while (<>) {
   print sprintf "%5d%s",$cnt++,$_;
}