$ftp->put(\*TR,$File);