use File::Copy;
copy("$spath$1/$2/$3", "$tpath$3");