#!/usr/bin/perl
use Net::FTP;
$ftp = Net::FTP->new("mein.host.com");  # Hier Deinen Host eingeben
die "Konnte keine Verbindung aufbauen $!" unless $ftp;
$ftp->login("username", "password");    # Hier Benutzername und Password eingeben
$ftp->cwd("/pub");                      # cwd: Verzeichnis wechseln
$ftp->get("dummy.html");
$ftp->quit;

#!/usr/bin/perl

use warnings;
use strict;

use Net::SFTP;

my %args = (
                user        => 'login',
                password    => 'password',
                debug       => 0
            );

my $tag = `/bin/date +"%s"`;
chomp($tag);

my $datum = `/usr/bin/expr $tag / 86400`;
chomp($datum);

my $sftp = Net::SFTP->new("IP-ADRESSE hier eintragen", %args);

my $remote = "/entferntes-verzeichnis/datei.asc". $datum .".tar.gz";
my $local  = "/locales-verzeichnis/datei.asc" .  $datum .".tar.gz";
$sftp->get($remote, $local);



print "fertig\n";