url = "http://earthcam.com/webcam.jpg";
cgiscript = "http://yourwebsite.com/getjpg.cgi";
counter = 2;
function update() {
 newmovie = "JPG" + counter++;
 duplicateMovieClip("JPG", newmovie, counter);
 loadMovie(cgiscript, newmovie, "GET");
}

#!/usr/bin/perl
##########################################################################
#               Get JPG from non local domain Script v1.00
#------------------------------------------------------------------------#
# Last Updated: 3/18/2002                         written by: Jeff Hughes
# Use this script however you want ...
#                         just don't blame me for anything that goes wrong.
##########################################################################
## Get Input From Form  ##################################################
 read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 $buffer = $ENV{'CONTENT_LENGTH'} || $ENV{'QUERY_STRING'};
 @pairs = split(/&/, $buffer);
 foreach $pair (@pairs) {
 ($name, $value) = split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
 else { $INPUT{$name} = $value; }}
##### $INPUT{'name'} #####################################################
use HTTP::Request;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(GET => $INPUT{'url'});
my $response = $ua->request($request);
my %hash = %{$response};
$content = $hash{_content};
$msg = $hash{_msg};
print "Content-type: image/jpeg; name=\"webcam.jpg\"\n";
print "Content-Disposition: inline; filename=\"webcam.jpg\"\n\n";
binmode STDOUT;
print $content;
#------------------------------------------------------------------------#
#		     End of Script         ###      First Created: 3/18/2002
##########################################################################