#!C:/Perl/bin/perl.exe

use strict;
use warnings;
use LWP::Simple qw( mirror is_error RC_NOT_MODIFIED );

my $url  = 'http://rabbit.eng.miami.edu/dics/pocket.txt';
my $file = $url;

$file =~ s{.*/}{};

my $status = mirror($url, $file);

if (is_error($status)) {
    die "Can't get text file at URL $url\n";
}

if ($status == RC_NOT_MODIFIED) {
    warn "File $file not modified\n";
}

# Do something with freshened file named pocket.txt...

exit 0;