foreach $server (@server_list) {
    $ssh = Net::SSH::Perl->new($server);
   ...
  }
[download]

What are the ...? You are not spawning processes with each new call, you are just opening network connections. If you really want to spawn a process, you are missing a fork in there.