Select Code to Download

#!/usr/bin/env perl

...
print "calling pod2usage with -exitval => 'NOEXIT'\n";
pod2usage(-exitval => 'NOEXIT');
print "We are still here after using -exitval => 'NOEXIT'.\n";

Calling pod2usage(1)
EXIT_OVERRIDE
We are still here after overriding exit.
calling pod2usage with -exitval => 'NOEXIT'
We are still here after using -exitval => 'NOEXIT'.