use WWW::Mechanize;
my $addr = 'http://myhost.com.sg/cgi-bin/biobase/transfac/9.4/bin/start.cgi';
my $username = 'myname';
my $pwd      = 'somepassword';

my $mech = WWW::Mechanize->new();
$mech->get($addr);
$mech->credentials($username,$pwd);
    
my $result = $mech->content(); 
print "$result\n";