perl -e '@hosts = ( map { $_ . q[.example.com] } qw/ foo bar www / ); system( q[rsync], q[-rcC], q[-e], q[ssh], @ARGV, sprintf(q[%s:remotedir], $_) ) foreach @hosts;' /tmp/foo