my @scripts = qw/step1.pl step2.pl step3.pl step4.pl/;
for my $script (@scripts) {
  system('perl',$script)==0
    or die "failed to execute $script: \$?=$?";
}
[download]