19/02/08 05:56:49.57 1ARos5/N0.net
sub login {
my ( $id, $pw ) = @_;
my $ua = LWP::UserAgent->new;
$ua->agent('DOLIB/1.00');
$ua->default_header( 'X-2ch-UA' => 'Monazilla/1.00' );
my $url = 'URLﾘﾝｸ(2chv.tora3.net)';
my %form = ( 'ID' => $id, 'PW' => $pw );
my $req = POST( $url, Content => "ID=$id&PW=$pw" );
my $res = $ua->request($req);
my $sid = $res->content;
chomp($sid);
$sid =~ s/^SESSION-ID=//g;
print $sid,"\n";
return $sid;
}