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