#!/usr/bin/perl
use warnings;
use strict;

use Getopt::Long;
Getopt::Long::Configure('bundling');

our %Options;
GetOptions(\%Options,
  'size|s=i',           # The | separates aliases, ie: s == size
  'verbose|v',          # What comes before the | is the name, which
  'debug|d',            # determines what hash entry (or variable) is set.
);

print "Debug mode\n" if $Options{debug};
print "Verbose mode\n" if $Options{verbose};
print "Size is: `$Options{size}'\n" if exists $Options{size};
print "Done.\n";