#!/usr/bin/perl

use LWP::Simple;
my $url = shift(@ARGV) or die "URL fehlt!\n"; 
my $filename = shift(@ARGV) || 'bild.jpg';
getstore($url, $filename);