sub SUBMIT {

   my $login = 1;

   my $ua = LWP::UserAgent->new(%uaoptions);
   $ua->cookie_jar( {} );
   if ($login) {
        &login;
   }

   my $logintest= get("http://www.site.com/");
   if ($logintest =~ m!you are now logged!sim) {
   }
   else {
      print "Bad username or password.";             
      exit;
}