use Getopt::Long;
sub pod2usage { require Pod::Usage; goto \&Pod::Usage::pod2usage; }
GetOptions(
   ...
   ...
) or pod2usage(2);