#!/usr/bin/perl
$ipaddress = $ARGV[0] ;
#$delay = time + 5 ;
#while (time < $delay)
#{
#$x = $x ;
#}

open(FILEHANDLE,"/etc/ppp/clientroutes");
$line="init";
$len = length($ipaddress);
$len2 = $len + 2;
$fa = "End of file";
open(HANDLE, ">>/var/run/ppp.up") ;
print HANDLE ("Im about to write" . $ipaddress . "\n");
while  (substr($line, 0, 11) ne $fa)
{
$line=<FILEHANDLE> ;
if (substr($line, 0, $len) eq $ipaddress) {print HANDLE ("the operation was a su
ccess")}
}
#print $line . "\n" . $len ."\n" . $ipaddress ."\n"