#!\c:\perl

	use Net::SSH2;
	use Net::SFTP::Foreign;
	use Net::SFTP::Recursive;
	use File::Copy::Recursive qw (dircopy);
	use File::Find;
	use File::Path;
	use Cwd;

	use strict;
	use warnings;



		if (opendir(DIR, $SOURCE2)){
			while (defined ($file = readdir(DIR))) {
				if (($file eq ".") || ($file eq "..")){
				}

				elsif (-d "$SOURCE2/$file"){
					if (-e "$SOURCE2/$file/Transferred to $HOST.txt"){
						if (int(-M "$SOURCE2/$file/Transferred to $HOST.txt") > $life) {
							rmtree ("$SOURCE2/$file");
						}
					}
					elsif (-e "$SOURCE2/$file/RTAComplete.txt") {
						if (($sftp->rput("$SOURCE2/$file", "$PATH/$file", late_set_perm => 1, overwrite => 0) or die "Rput died: ".$sftp->error) > 0){
							open FH, ">$SOURCE2/$file/Transferred to $HOST.txt";
							print FH "";
							close FH;
						}
					}
				}
			}
			closedir(DIR);
		}