sub readurl {

$addr = "security/$proc.save";
$addr =~ /(.*)/;
 
@data = `cat $1`;
foreach $line (@data) {chop($line);
   ($name,$value) = split(/=/,$line);
   $FORM{$name}=$value;
}
#system ("rm $1");
}
1;