Hello Anonymous Monk,

Try something like this:

#!/usr/bin/perl
use CGI;
use strict;
use warnings;
use Net::FTP;
use feature 'say';

my $cgi = CGI->new();
my $file = $cgi->param( 'upload' ) || 'test.pl';

say do_ftp($file);

sub do_ftp {
    my ($filename) = @_;
    return unless $filename ;
}

__END__

$ perl ftp.pl
test.pl
[download]

We do not have the full code but I assume my $file = $cgi->param( 'upload' ) || ''; that you are passing an empty string here right? I have alter the code in two points. Observe the () in the subroutine also.

I would recommend to use module Net::SFTP::Foreign. Similar question with samples of working code(s) Generate temporary file and FTP upload.

Hope this helps, BR.