More fun with LWP::Simple

#!/usr/local/bin/perl

use strict; 
use warnings;
use LWP::Simple;

my $data = get('http://www.cnet.com/');
if (defined $data) {
   print $data;
}

if (is_success(getstore('http://mysimon.com/',
                        './mysimon.html')))
{
   print "fetched mysimon front door just fine\n";
}

if (RC_NOT_MODIFIED != mirror('http://mp3.com','./mp3.html')) {
   print "Something interesting happened with mp3.com\n";
}

my ($type, $length, $mod, $exp, $server) = head('http://news.com');
print "Content Type is $type, and the Server is $server\n";