Can't seem to ftp to the right directory.

foreach(@dircontents)
{
my $key=$_;
my $target_dir="/home/speg/diyar/TEST/RESULT";
my $wildcard=".txt";
$pathname=$ftp->pwd;

$totalpathname="$pathname\/$key";

           if($key=~"$wildcard"){
                   @mod_time=$ftp->mdtm($key);
                   print "Modification Time is @modtime";
                   print time2str("%C", @mod_time);

                   print "Pathname of the file: $totalpathname";
                   #the above code print out :  /home/transfer/diyar/TEST/FT1.txt
                   $ftp->put("$totalpathname",["$target_dir"]);
#the above code in pseuodocode is to transfer file /home/transfer/diyar/TEST/FT1.txt to /home/speg/Cyril/
           }
           ftp->quit
}