#!/usr/bin/perl

use strict;
use Net::FTP;

my $benutzername = "xxxx";
my $passwort = "xxxx";
my $dateiname = "xxxx.dat";
my $server="xxxx";   
  

my $ftp= Net::FTP->new($server);
$ftp->login($benutzername, $passwort);
$ftp->get($dateiname);
$ftp->quit();        

print $dateiname;

#!/usr/bin/perl

use LWP;

my $url = 'http://xxx.xxx.de/xxxx/status1.dat';
my $ua = LWP::UserAgent->new();
my $form = $ua->get($url) or die "Kann $url nicht öffnen";

my $form_login = "xxxx";
my $form_pass = "xxxx";
my $resp = $ua->post("http://xxxx.xxxx.de/xxx/status1.dat",[ $form_login, $form_pass, action => login ]);

# $url = 'http://xxxx.xxxx.de/xxxx/status1.dat';
# $form = $ua->get($url) or die "Kann $url nicht öffnen";
# $form->is_success() or die $form->message();

print $form->content()

401 Authorization Required
This server could not verify that you are authorized to access the document requested. Either you supplied the wrong credentials (e.g., bad password), or your browser doesn't understand how to supply the credentials required.

#!/usr/bin/perl

use LWP::UserAgent;
use Crypt::SSLeay;

$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'https://192.168.1.1/laber.html');
$req->authorization_basic('login-name', 'geheim123');
$result = $ua->request($req);

# check the outcome

if ($result->is_success) 
{
 $x = $result->decoded_content;
 print $x;
}
else 
{
 print "Error: " . $result->status_line . "\n";
}

$ua->credentials( $netloc, $realm, $uname, $pass )

#!/usr/local/bin/perl -w

use LWP;


$url = $ARGV[0] || "http://xxx.xxx.de/xxx/status1.dat";

$ua  = new LWP::UserAgent;
$req = new HTTP::Request 'GET' => "$url";

$req->authorization_basic('xxx' => 'xxx');

$res = $ua->request($req);

$result = $res->is_success() ? 
    $res->content() :
    "Error: " . $res->code() . " " . $res->message();

print "$result\n";