#!/usr/bin/perl
use Data::Dumper;
use miniwget;
use strict;
use warnings;

my $site=miniwget->new(shift(@ARGV));

if($site->success())
{
  print "#"x80,"\n";
  print $site->body();
  print "#"x80,"\n";
}
else
{
  print "#"x80,"\n";
  print "MESSAGE:".$site->message()."\n";
  print "STATUS:".$site->status()."\n";
  print "#"x80,"\n";
  print "HOST:".$site->host()."\n";
  print "PORT:".$site->port()."\n";
  print "PATH:".$site->path()."\n";
  print "#"x80,"\n";
  print "HEADER:\n";
  print Dumper($site->header());
  print "#"x80,"\n";
  print "BODY:\n";
  print $site->body()."\n";
  print "#"x80,"\n";
}