my $cmd = q|ssh -q aimuat perl -e \'\$MTIME = \( stat \( \"Envs_aimuat.xml\" \)\)\[9\]\;print \$MTIME\;\'|;
$TStamp = `$cmd`;

##</code><code>##

my $cmd = q|ssh -q aimuat perl -e \'print +\( stat \( \"Envs_aimuat.xml\" \)\)\[9\]\;\'|;
$TStamp = `$cmd`;