##
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);