#!/usr/bin/perl

use strict;
use Getopt::Std;

{
    my %opts = ();
    getopts( 'w:h:', \%opts );
    print "w: $opts{w}; h: $opts{h}\n";
}

##</code><code>##

 $ perl opts.pl -w wassup -h hey

##</code><code>##

w: wassup; h: hey