Select Code to Download

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