Taken from the manual page Getopt::Long:
The code is:
use Getopt::Long; my $data = "file.dat"; my $length = 24; my $verbose; GetOp