Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
    print "request->headers->{'user-agent'}:\n\t", 
        $req->request->headers->{'user-agent'}, "\n";
}

Select or download this

protocol:
        HTTP/1.1
...
request->headers->{'user-agent'}:
        LWP::Simple/6.00 libwww-perl/6.02