#!/usr/bin/perl

my $i=0;
open DATA, ">>/usr/local/var/ndpmon/ndpmon_test.txt" or die "Cannot open /usr/local/var/ndpmon/ndpmon_test.txt for writing\n";

print DATA "-----\n";
while (<STDIN>) {
  chomp;
  if ($_ ne "") {
    $i++;
    print DATA "$i: $_\n";
#    print "$i: $_\n";
  }
}
print DATA "-----\n\n";

close DATA;