# untested

@perlscripts = qw[1.pl 2.pl 3.pl];

foreach my $perlscript (@perlscripts)
{
  system($perlscript);

  if($? == -1)
  {
     warn "Couldn't start $perlscript: $!";
  }
  elsif($? != 0)
  {
     warn "Perl script $perlscript exited with: ". 
           $? >> 8
  }
}

##</code><code>##

open(<FH>, ">logfile.txt") || die "Doh: $!";

##</code><code>##

print FH "warning message";