a guest Jun 19th, 2018 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- use LWP::UserAgent;
- my ($host, $realm, $user, $pass, $uri) = @ARGV;
- my $agent = LWP::UserAgent->new()->credentials($host, $realm, $user, $pass);
- print $agent->get($uri)->content();
RAW Paste Data