Select Code to Download

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

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

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

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