#!C:/perl/bin/perl -w

use strict;
use Net::FTP;

my $host = "homepage.de";
my $debug = 0;
my $name = "username";
my $passw = "psw123";

my $ftp = Net::FTP->new($host, $debug);

sub ftpLogin
{
    $ftp->login($name, $passw);
    $ftp->quit;
    
    return 1;
}

if(&ftpLogin)
{
    print "OK";

}