Filling out a web form is very easy to do with WWW::Mechanize - it allows you to specify values for fields, almost like a real browser :

use WWW::Mechanize;
my $url = "http://your.messenger.com/"
my $a = WWW::Mechanize->new();

$a->get($url);

$a->follow_link( text_regex => qr/enter data/i );

$a->submit_form(
    form_number => 3,
    fields      => {
            username    => 'yourname',
            password    => 'secret',
            message     => 'hello world!',
            }
    );
[download]

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web
[download]