#!/usr/bin/perl -w 
use strict;
use Getopt::Long;

my $abc = 1;
my $bar=1;
my $fii=1;
my $wee=1;

my $result = GetOptions("abc=i" => \$abc,
                        "bar=i" => \$bar,
                        "fii=i" => \$fii,
                        "wee=i" => \$wee
             );

| etc...