Select Code to Download

my $cmd = shift;

my @cmd = split /\s+/, shift;

$pid{spawn($cmd, split /\s+/, shift @ARGV)} = 1;

$pid{spawn(@cmd, shift @ARGV)} = 1;

#!/usr/bin/perl

...
";
  exit 1;
}