#!/usr/bin/perl
my $file="DHCPTable.asp";
my $in_table=0;

system("wget --http-password=xlsf01 --http-user=admin http://192.168.1.1/DHCPTable.asp");
#grep -A16 var\ table DHCPTable.asp 
FH=open($file) ||die "couldn't open $file\n";
while(<>)
{
 if(/var\ table/)
 {
  $in_table=1;
 }
 @lampreys[$line++]=$_ if $in_table;
}