#!/usr/bin/perl

  use strict;
  use warnings;

  use HTTP::Cookies::Microsoft;
  use LWP::UserAgent;

  my $username = getlogin;
  my $cookie_dir = "C:/Dokumente und Einstellungen/$username/Cookies/";

  my $cookie_jar = HTTP::Cookies::Microsoft->new(
      file => "$cookie_dir/index.dat",
      delayload => 1 );

  my $UA = LWP::UserAgent->new( cookie_jar => $cookie_jar );