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