Select Code to Download

my $cmd1 = "perl prog1.pl";
system($cmd1);
...
my $cmd3 = "perl prog3.pl";
system($cmd3);

BEGIN {
  open(STDERR, ">stderr2.log")
    or die "Failed to open log file";
}

close STDERR;