#! /usr/bin/perl -w
use LWP::UserAgent;

$login = 'Vasya;
$pwd = 'Petya';
$ua = LWP::UserAgent->new();
$res = $ua->post( "http://www.free-lance.ru", {login => $login , passwd => $pwd, action => 'login', button => '%C2%F5%EE%E4'} )->as_string;
if($res =~ /чо-нибудь символизирующее удачный заход/)
{
print $login.$pwd;
}