use WWW::Mechanize;
    use Term::ReadKey;
    my $mech = WWW::Mechanize->new( autocheck => 1 );
    
    $mech = WWW::Mechanize->new();
    my $username;
    my $passwd;
    my $tempfile = "testfile.txt";
    my $url = "http://zeus_XXX.de/bug/lmy_view_page.php";

   print "Enter User Name: \n";
   $username = <STDIN>;
   chomp($username);
      
   print "Enter Password: \n";
   ReadMode noecho;  
   $passwd = <STDIN>;
   chomp($passwd);
   ReadMode restore;
       
   $mech->credentials( $username, $passwd );
   $mech->get( $url, ':content_file' => $tempfile );
 
   print "Programm Ende!\n";