checker.pl

#!/usr/bin/perl
use strict;
use warnings;

use LWP::Simple;

print "What site would you like to check?";
my $site = <STDIN>;
print "What file would you lke to save to?";
my $file = <STDIN>;
$file =~ s/[\n\r\f\t]//g;

my $content = getstore($site, $file);
die "Couldn't get it!" unless defined $content;

my $hashref = head($site);
die "Couldn't get it!" unless defined $hashref->header('content_type');
print($hashref->as_string());

print "Site is $site\n";
print "file is $file\n";