use Net::SFTP::Foreign;
my $sftp = Net::SFTP::Foreign->new($Uat);
my $attr = $sftp->stat("Envs_${Uat}.xml") or die "unable to stat remote file";
printf "modification time: %d\n", $attr->mtime;