Select Code to Download

Select or download this

Name=JohnSmith, pass=test
content=
filter=
*********MATCH()*******
Can't locate object method "host" via package "URI::_foreign" at URI/W
+ithBase.pm line 48.

Select or download this

call perlapp -v -r -s=alwayson.pl -f -a=URI::_foreign;lwp::protocol::h
+ttp;http::request::common;lwp::useragent;http::cookies;uri::file;uri:
+:_server
alwayson.exe "JohnSmith" "test"

Select or download this

Input script name: alwayson.pl
Output exe name: alwayson.exe
...
Adding Binary: C:/Perl/lib/auto/Socket/Socket.dll
Adding Binary: C:/Perl/lib/auto/IO/IO.dll
Done creating alwayson.exe

Select or download this

*********MATCH()*******
*********MATCH(/cgi-bin/pu_index.fcgi?newbranch=d24&action=framestart)
+*******
...
*********MATCH(/cgi-bin/pu_login1.fcgi?password=adidafs&id=1-d24-OARIy
+cshBQMvBYHVeoEIemBw&nickname=Sime)*******
LOGGED ON!
Sleeping...

Select or download this

use LWP::UserAgent;
use HTTP::Request::Common;
...
        die "redirect not found !";
    }
}