$./ncat.pl ncat.pl
 1 #!/usr/bin/perl
 2 $linenumber = 1;
 3 while(<>) {
 4     printf "%2d ", $linenumber;
 5     print;
 6     $linenumber++;
 7 }