Select Code to Download

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