#!/usr/bin/perl
# (standard shebang line, in case you get to use this on unix/linux someday)

use strict;
use warnings;

open( SLIST, '<', "server.list" ) or die "server.list: $!\n";
while ( my $server = <SLIST>) {
    chomp $server;
    open( FLIST, '<', $server.filelist ) or do {
        warn "$server.filelist: $!\n";
        next;
    }
    my $srvr_cmd = "ls -l";
    while ( <FLIST> ) {
        chomp;
        $srvr_cmd .= " $_";
    }
    my $file_info = `ssh $server $srvr_cmd`;
    print "=== results from $server ===\n$file_info\n";
}