#!/usr/bin/perl open(OUT, ">/tmp/cayman.html" || die "can't open output"); use LWP::UserAgent; $ua = LWP::UserAgent->new; $req = HTTP::Request->new(GET => "http://192.168.1.254:8080/shell/show ++ip+interfaces"); $req->authorization_basic("userid", "password"); $response = $ua->request($req); $content = $response->content(); print OUT $content; close(OUT) || die "can't close output cayman.html";
In reply to (shockme) Re: Hello
by shockme
in thread How to POST to a web server?
by Cheburashka
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |