#!/usr/bin/perl

use strict;
use warnings;
use Net::FTP;

my $host = "";
my $user = "";
my $pass = "";
my $option = 0;
my $option_2 = 0;
my $ftp = "";

print "Bitte wählen Sie: \n1 Anonymer Login \n2 Eingabe von Benutzerdaten \nIhre Wahl: ";
$option = <STDIN>;
if ($option == 1){
    $user = "anonymous";
    $pass = "anonymous\@anonymous.com";
};
if ($option == 2){
    print "\nBenutzername: ";
    $user = <STDIN>;
    print "\nPasswort: ";
    $pass = <STDIN>;
}
else {....};
print "\nHost: ";
$host = <STDIN>;
$ftp = Net::FTP->new($host);
$ftp->login($user, $pass);