use strict;

my $var = '';

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