[_m3]

Ich werde nie wieder gleichzeitig Perl-coden und telefonieren.
Ich werde nie wieder gleichzeitig Perl-coden und telefonieren.
Ich werde nie wieder gleichzeitig Perl-coden und telefonieren.
Ich werde nie wieder gleichzeitig Perl-coden und telefonieren.

Der richtige neue Code lautet:

	# ORI.m3: $ftp = Net::FTP->new($host);
	# ORI-m3: if (defined $ftp) {
        # ORI.m3:     $ftp->login($ENV{"FTP_USER"},$ENV{"FTP_PASSWORD"});

	my $port = '21', $login, $pwd;
        if( $host =~ /\@/ ){
            $login = $host;
            if( $host =~ /\@(.)+\:/ ){
                ($host, $port) = split(':', $host);
            }
            $login =~ s/\@(.)+$//;
            ($login,$pwd) = split(':', $login);
            $ftp = Net::FTP->new($host, Port=>$port);
            $ftp->login($login, $pwd) if (defined $ftp);
        }
        else{
            $ftp = Net::FTP->new($host);
            $ftp->login($ENV{"FTP_USER"},$ENV{"FTP_PASSWORD"}) if (defined $ftp);
        }
	
	if (defined $ftp) {
	    @list=$ftp->ls("-lR");