foreach my $SYS (qw(ifeuu1 ifcau1 ifcaa1 mifuat aimuat timeuat)) {
$cmd=q|ssh -q SYSTEM perl -e \'print +\( stat \( \"Envs_SYSTEM.xml\" \)\)\[9\]\;\'|;
$cmd =~ s/SYSTEM/$SYS/g ;
print "$SYS:" . `$cmd` . "\n";
}