sub saveurl {

$proc =~ /(.*)/;
$proc = $1;

open (OUT,">security/$proc.save");
foreach $key (keys %FORM) {
   print OUT "$key=$FORM{$key}\n";
}
close (OUT);
 
}
1;