#!/usr/bin/perl -w
use strict;
use warnings;
require Net::FTP;

my $ftp= Net::FTP->new("client-onboard1", Debug => 1) or die "Cannot connect to client-onboard1\n";
$ftp->login("mylogin",'mypass') or die "Cannot login to client-onboard1\n";
$ftp->cwd("/tmp/fcp/")  or die "Cannot change working directory ", $ftp->message;
$ftp->get("test_rem") or die ("Could not upload\n"); #this line works
$ftp->put("/mypath/test_fl") or die ("Could not upload\n"); #this fails with the permissions denied error.