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

##</code><code>##

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

##</code><code>##

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