#!/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;