#!/usr/bin/perl -w

# find a line by its number - wordpad has no line numbers :-/

$line = shift; $file = shift;

$file = "Cowgen\\$file" if ($file !~ /\\/);

print "\n";
open (FILE, "$file") || die ("no file $file $!\n");
$l = 0;
while (<FILE>)
  {
  chomp;
  if (($l > $line-3) && ($l < $line + 3))
    {
    print "$l: $_\n";
    }
  $l++;  
  }
close(FILE);
