#!/usr/bin/perl
    use strict;
    use warnings;
    use LWP::Simple;

    my $rc = getstore('http://www.perlmeme.org',        'some_local_file');
    print status_message($rc), "\n"; 

    getstore('http://www.perlmeme.org', 'some_local_file');
    exit 0;