note
karlgoethebier
<p>I guess you want something like this:</p>
<c>
#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Data::Dump;
my %options;
# Getopt::Long::Configure("no_ignore_case"); # perhaps you need it...
GetOptions( \%options, "device=i" );
pod2usage( -exitstatus => 0, -verbose => 2 ) unless defined $options{device};
dd \%options;
# stuff...
__END__
=pod
=head1 USAGE
Something went wrong.
=cut
</c>
<p>Please see also [id://1142625], [id://1119335] and [mod://Getopt::Long]</p>
<p>Regards, Karl</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-1001958">
<p>«The Crux of the Biscuit is the Apostrophe»</p>
</div></div>
1142708
1142708