#!/usr/local/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;

sub download {
    my $as_target=shift;
    my $ref=shift;
    my $l_agent=LWP::UserAgent->new('max_redirect'=>0);
    my $l_response=$l_agent->get($as_target);
    if ($l_response->is_success) {
        $$ref=$l_response->content;
        return 1;
    }
    else {
        $$ref=$l_response->status_line;
        return 0;
    }
}

my $url=<STDIN>;
chomp $url;
my $data;
download($url,\$data);
my $pos=rindex($data,"/");
my $dateiname=substr($l_zieldatei,$pos+1);
open (STREAM,">$dateiname");
print STREAM $data;
close STREAM;