#!/usr/bin/perl -w
use strict;
use warnings;
require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->agent("MudGuard/1.0");
my $response = $ua->get('http://www.r e link.us/f/504d78064000bf8b7ee14c05027311');
if ($response->is_success) {
 my $content = $response->decoded_content;
 if ($content =~ /download\.php\?id\=([^"]+)/) {
  my $link = $1;
  print "Finde Link: $link\n";
  my $response = $ua->get("http://www.r e link.us/download.php?id=$link");
  if ($response->is_success) {
        open (my $fh,'>','testcontainer2.dlc') or die $!;
        binmode $fh;
        print $fh $response->decoded_content;
  }
  else {
   die "Download gescheitert: " . $response->status_line;
  }
 }
}
else {
 die $response->status_line;
}