Shell Programming and Scripting

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

  $ftp->login($ftpuser, $ftppassword)
      or die "Cannot login ", $ftp->message;

  $ftp->binary;
# Full Path on FTP
	
	  $ftp->cwd($fullpath);
	  print "Ftp Path : $fullpath\n\n"; 
	 	  $ftp->put("$filename");
	  
	 $ftp->cwd($fullftp)or die "Cannot change working directory ", $ftp->message; 
	  $ftp->put($filename2) or die $ftp->message;

		  }

 $ftp->cwd($fullpath);
	  print "Ftp Path : $fullpath\n\n"; 
	  print "File Name : $filename\n\n";
	  $ftp->put("$filename")or die $ftp->message;
	  print "Current directory is: ", getcwd(), "\n"; # this is printing the $fullpath.

chdir($ScriptHome)or die "could not cd to $!"; # to chnge the local directory where file exists that needs to ftp.

print "$ScriptHome \n\n"; # printing the local path where file exists.

 $ftp->cwd($fullftp); # to change the directory path where secnd file (filename2.txt) needs to upload.
			 print $ftp->pwd()or die $ftp->message;
#but this print statement printing the first directory path i.e $fullpath instead of $fullftp.
 $ftp->put($filename2) or die $ftp->message;