#!/usr/bin/perl

use strict;
use warnings;
use Parallel::Runner;

open STDOUT, '>', 'ssh.log'
        or die "Couldn't open ssh.log: $!\n";

my $runner = Parallel::Runner->new(5);
$runner->run( sub { system("perl scraper1.pl") });
$runner->run( sub { system("perl scraper2.pl") });
$runner->run( sub { system("perl scraper3.pl") });
$runner->run( sub { system("perl scraper4.pl") });
$runner->run( sub { system("perl scraper5.pl") });
$runner->finish;