NET::FTP $ftp->put problem!

sub makedir {
 $reldir = $FORM{'directory'};
 $absdir =  "$data_ftp/$reldir";
 if (not $ftp->cwd($absdir)) {  # only create $absdir if it doesn't exist
   $ftp->mkdir($absdir) or die  "Unable to create $absdir";
   &report("The directory  <B><TT>$absdir</TT></B> has been created.");
 }
 else {
   &report("The directory  <B><TT>$absdir</TT></B> already exists.");
 }
} # End of makedir subroutine.

 $ftp->rmdir($absdir);
 if (not $ftp->cwd($absdir)) {
   &report("The directory  <b><tt>$reldir</tt></b> has been removed.");
 }
 else {
   &report("The directory  <b><tt>$reldir</tt></b> was  <b>not</b> removed, 
because it was not empty.");
 }

#!/usr/bin/perl
print  "Content-type: text/html\n\n";
print  "Test1\n";

&open_ftp();
&ftp_upload();
$ftp->quit;

#########################################

sub ftp_upload {
 print"<br><br>Upload:<hr>\n";
 $ftp_pwd = $ftp->pwd();
 print"\$ftp_pwd: $ftp_pwd<br>";

 $filename =  "C:\\temp\\1\\4.jpg";
 $ftp->binary();

 $ftp->put("$filename", ["$ftp_pwd\/test.jpg"]) or print  "problem1<br>";
   ## I'm trying to upload the file  "C:\\temp\\1\\4.jpg" to 
      the  "ftp.mydomain2.com/root-www/cars/test4/test.jpg", but the program always prints  "problem1" at this point and does not upload anything.

 print"\n<hr>End of Upload<br><br>\n";
} # End of ftp_upload subroutine.

#########################################

sub open_ftp {
 $server_name =  "ftp.mydomain2.com";
 $username =  "******";
 $password =  "******";
 $current_directory =  "/root-www/cars/test4";
  # All those 4 rows should be fine, since I'm able to login and add/remove dir's.

 use Net::FTP;
   $ftp = Net::FTP->new($server_name, Debug => 0)
     or die  "Cannot connect to $server_name: $@";

   $ftp->login($username,$password)
     or die  "Cannot login  ", $ftp->message;

   $ftp->cwd($current_directory)
     or die  "Cannot change working directory  ", $ftp->message;

   $ftp_pwd = $ftp->pwd();
   print"\$ftp_pwd: $ftp_pwd<br>";
   print"\$current_directory: $current_directory<br>";

   @dir_data = $ftp->dir();
   print  "File list<p><pre>\n";   

   foreach(@dir_data) {
     print  "$_\n";
   }

 print  "\n</pre>Pass login subroutine ok\n";
}

$ftp->put("$filename", "$ftp_pwd\/test.jpg") or print  "problem1<br>";

use Net::FTP;
my $ftp;
$ftp = Net::FTP->new($ftp_server, Debug => 1)or die "Cannot connect to the ftp host - please contact $config{'sitename'} support: $@";
$ftp->login($login,$password)or die $ftp->message;
$ftp->pwd or die $ftp->message;
$ftp->cwd($upload_to_dir) or die $ftp->message;
$ftp->binary();
print "Uploading $input_file to $ftp_server: $upimagedirectory$new_file_name...<br>";
warn "Failed to set binary mode\n" unless 
$ftp->put ( $input_file, $new_file_name ) or warn "did not upload"; #upload the main image
$ftp->quit;