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

my $showos=0;
my $showrel=0;
my $showarch=0;
my $showiface=0;
my $showhd=0;
my $showmem=0;
my $showuser=0;


GetOptions (
        "os|o"=>\$showos,
        "rel|r"=>\$showrel,
        "arch|a"=>\$showarch,
        "iface|i"=>\$showiface,
        "hd|h"=>\$showhd,
        "mem|m"=>\$showmem,
        "user|u"=>\$showuser,
        "all|A"=> sub { $showos = 1; $showrel = 1; $showarch = 1; $showiface = 1; $showhd = 1; $showmem = 1; $showuser = 1; },
        "help|h"        => sub { &help; exit 0; }
);
. . .