#!/usr/local/bin/perl




use WWW::Mechanize;

my $datei = 'C:\Dokumente und Einstellungen\Username\Desktop\QuelleCode.txt';

my $name = 'username';
my $value = 'E-Mail Adresse';
my $name2 = 'password';
my $value2 = 'Geheim';




   my $mech = WWW::Mechanize->new( autocheck => 1 );
	
      $mech->get( "http://web.de/fm/" );
         $inhalt = $mech->content;

             open(FILE,">$datei");
             print FILE "$inhalt";

 
$mech->field( $name, $value);
$mech->field( $name2, $value2);