#!/usr/bin/perl

open (INFILE, "</root/automate/system.list") || die "could not open system.list: $!";
@system_list = <INFILE>;
close INFILE;

foreach $system (@system_list){
`ssh $system date`;
#date could be substitute with any unix command like pwd,ls,etc.
}