#!/usr/bin/perl

require LWP::UserAgent;

my $base='http://rosinstrument.com/cgi-bin';

my $ua=LWP::UserAgent->new;
$ua->cookie_jar({});
$ua->agent("Rosinstrument.com (compatible; ver. 0.1)");
$ua->get("$base/login.pl");
$ua->post(
 "$base/login.pl",
 [ 'login' => '[YOUR_LOGIN]', 'passwd' => '[YOUR_PASSWD]' ]
);

for my $list (http1000, httpanon500, https500, socks1000){
 $ua->request(
  HTTP::Request->new('GET'=>"$base/tl.pl?$list"),
  "$list.txt"
 );
}