ลองเอาไปดูกันครับ...
เป็นโปรแกรมตัวอย่างการใช้ LWP module และ ใช้ Proxy สำหรับ monitor สถานะของสมาชิคว่า online หรือเปล่า

ผิดพลาดประการใด ขออภัยด้วยครับ

[hide=3][code] #!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use IO::Handle;

my $ua = new LWP::UserAgent;
$ua->proxy('http','http://192.168.1.1:80/');

my $request = new HTTP::Request('GET', "http://www.citecclub.org/forum/index.php?act=Profile&CODE=03&MID=3875");
my $response = $ua->request($request);

if($response->is_success){