$host = 'myhost'; $user = 'myuser'; $password = 'mypassword';
        $dir = "mydir/mysubdir/";
        $file = "myfile";
        $ftp = Net::FTP->new($host) or die $!;
        $ftp->login($user,$password) or die $!;
        $ftp->cwd("$dir") or die "FTP cwd failed : $!\n";
        $ftp->put("$myfile*") or die "FTP put failed : $!\n";
        $ftp->quit() or die "FTP quit failed : $!\n";