Is there a reason you don't use Net::FTP?</code>

    #!/usr/bin/perl -wT
    use strict;
    use Net::FTP;

    use constant LOCAL_FILE => 'test.tgz';

    my $ftp = Net::FTP->new("some.host.name", Debug => 0);
    $ftp->login("anonymous",'-anonymous@');
    $ftp->cwd("/pub");
    $ftp->put( LOCAL_FILE );
    $ftp->quit;
[download]

I realize this doesn't answer your question directly, but it's a standard way of using FTP with Perl. Mind you, I haven't tested the above code. That's just from a quick skim of the documentation.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.