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

##</code><code>##

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