#!perl
use warnings;
use strict;
use LWP::UserAgent;
my ( $ua,$id,$pwd ) = ( LWP::UserAgent->new,"demonoid","JIAPOJIb" );
my $res = $ua->post( "http://getfirelink.net/index.php?user=".$id."&passwd=".$pwd."&submit_login=%D0%92%D0%BE%D0%B9%D1%82%D0%B8" );
# тут проверку сделай удалась авторизация или нет  
# ...$res->as_string;