Select Code to Download

open TESTCASE, "imp2.txt" or die $!;
chomp(@array = <TESTCASE>);

open CONFIGFILE, "imp1.txt" or die $!;

if (...)
{
...
    $MySocket->send($msg);
  }
}