perl登录网站

#!/usr/bin/perl -w


use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $res= $ua->post('',
    [
        username => '1358255662',
        password => '1@#2@#$',
        sendto => '1358255662',
        message => '信息',
    ],
);