Select Code to Download

package MyExists;

...
}

1;

use MyExists qw(my_exists);

...
print "My exists: ";
print my_exists( $hash{'test3'} );
print "\n";

Real exists: 1
My exists: No!
Real exists:
My exists: No!