Select Code to Download

use strict;

...
  if(open (my $mem, '>', \$var)) {print "Success\n"}
}
else {print "Ok\n"}