Shell Programming and Scripting

DB<1>
main:health.pl:69): my $ftps = Net::FTPSSL->new($hostname, Debug => $verbose, Port => $port, Encryption => $encryption) or die "ERROR: Cannot conect to $hostname\n";
DB<1>
SKT <<< 220 .
SKT >>> AUTH TLS
SKT <<< 234 Proceed with negotiation.
main:health.pl:71): if (!$ftps->login("$username","$password")) {
DB<1>
>>> USER test
<<< 331 Please specify the password.
>>> PASS ****
<<< 230 Login successful.
main:health.pl:76): $ftps->binary;
DB<1>
>>> TYPE I
<<< 200 Switching to Binary mode.
main:health.pl:78): if (!$ftps->cwd("/$input_dir")) {
DB<1>
>>> CWD /input
<<< 250 Directory successfully changed.
main:health.pl:83): if (!$ftps->put("$input_csv_file","/$input_dir/$input_csv_file")) {
DB<1>
>>> PBSZ 0
<<< 200 PBSZ set to 0.
>>> PROT P
<<< 200 PROT now Private.
>>> PASV
<<< 227 Entering Passive Mode (PUBLIC IP)
connect: Connection refused at /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Net/SSLeay/Handle.pm line 229.
at /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/Net/SSLeay/Handle.pm line 229
Net::SSLeay::Handle::make_socket('Net::SSLeay::Handle', PUBLIC IP, 9006) called at /usr/lib/perl5/site_perl/5.8.5/Net/FTPSSL.pm line 173
Net::FTPSSL:asv('Net::FTPSSL=GLOB(0x9f69890)') called at /usr/lib/perl5/site_perl/5.8.5/Net/FTPSSL.pm line 385
Net::FTPSSL:ut('Net::FTPSSL=GLOB(0x9f69890)', 'Test.csv', '/input/Test.csv') called at health.pl line 83