...
my $file = "/home/files/testfile.txt";
...
open FILE, '<', $file or die "open $file $!";
...
$ftp->put(\*FILE, $file) or die "$server: cannot put $file: " . $ftp->message;