use WWW::Mechanize;
  
print "Enter User ID: ";
$username = <>;
print "Enter Password: ";
$password = <>;

    my $mech = WWW::Mechanize->new();
  


    $url = "http://www.draftstreet.com/default.aspx";
    print $url;
    $mech->get( $url );

   $mech->field(txtUserName,$username);
   $mech->field(txtPassword,$password);