[HaBo]

$url = 'http://pericles.ipaustralia.gov.au/tmimages/cgi-bin/oracle_get_tm_images.pl?183054';
$image_save_path = './dada.jpg';

$file_array = @ file($url);
$file_array_size = sizeof($file_array);

if ($file_array_size > 1) {
	echo "image save to --> " . $image_save_path . "\n";
	$imgval="";
	for ($i=0; $i<sizeof($file_array); $i++) $imgval.=$file_array[$i];
	$fout=fopen($image_save_path, "wb");
	fwrite($fout,$imgval);
	fclose($fout);
	echo " -- das array --\n";
	print_r ($file_array);
	echo " -- array aus --\n";
} else if ($file_array_size <= 1) {
	echo "Image not found\n";
}

use strict;
use LWP::Simple;

my $image_save_path = './dada.jpg';
my $url = 'http://pericles.ipaustralia.gov.au/tmimages/cgi-bin/oracle_get_tm_images.pl?183054';
my $done = getstore($url, $image_save_path);