@var=`success.pl`;
print @var;

##</code><code>##

@var=system("success.pl") or die "cant run";
print @var;

##</code><code>##

OPEN(FH, "success.pl");
@var=<FH>;
close(FH);
print $var;

##</code><code>##

@var=exec ("success.pl") or die "cant run";
print @var;