Livelink - Umleitung

##

use LWP::UserAgent;
  use HTTP::Cookies::Netscape;
  $ua = LWP::UserAgent->new;
  $ua->agent("MyApp/0.1 ");
  
  my $cookie_jar = HTTP::Cookies::Netscape->new(
  	file     => "C:/Mozilla/Firefox/Profiles/096xdbsa.default/cookies.txt",
   	autosave => 1,
  );
  $ua->cookie_jar( $cookie_jar );
  
  my $res = $ua->get('https://tsi-myworkroom-de.telekom.de/livelink_de/livelink/fetch/2000/13022444/customview%2Ehtml?func=ll&objId=13022444&objAction=browse&sort=name');
  
  if ($res->is_success) {
      print $res->content;
  }
  else {
      print $res->status_line, "\n";
  }