Select Code to Download

$resp = `script2.pl \Q$var1\E \Q$var2\E`;

open(CMD, "script2.pl \Q$var1\E \Q$var2\E") or die $!;
while(<CMD>) {
...
  print ">>$_\n";
}
close CMD;

if(system("script2.pl \Q$var1\E \Q$var2\E")){
  print "Error running script2.pl!\n";
}