use LWP::Simple qw(mirror); my $result = mirror("http://host.example.com/url/foo.jpg", "localfile.jpg"); if ($result == 304) { print "no update needed\n": } elsif ($result = 200) { print "New image has arrived!\n"; } else { die "Bad mirror status: $result\n"; }