#!/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 = "";
my $login = "";

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>;
chomp($user);
print "\nPasswort: ";
$pass = <STDIN>;
chomp($pass);
}
else {print "anonymous login selected\n"};
print "\nHost: ";
$host = <STDIN>;
chomp($host);
$ftp = Net::FTP->new($host, Debug => 0)
     or die "Cannot connect to $host: $@"; 
$ftp->$login($user, $pass);