...
use LWP::Simple;
use HTML::TokeParser;
use CGI::Carp;

my ($image, $image_dir, $image_url, $new_image);

print "Content-type: text/html\n\n";

$image_dir = "../../store_here";

# $image should contain GIF data after this.
$image_url = "http://www.dimages/image_sample.gif" unless $url =~ m{^http://};
$image = get($image_url) || '';

######
# Save copy of image
open(OUTPUT_IMG_FILE, ">$image_dir") || die "Unable to open $image_dir: $!";
binmode(OUTPUT_IMG_FILE);
print OUTPUT_IMG_FILE $image;
close(OUTPUT_IMG_FILE);
######