my $var =  `perl success.pl 2>&1`;
print $var;