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