#!/usr/bin/perl

use strict;
use Getopt::Std;

my %opts = ();
getopt( 'h', \%opts );
if ( $opts{h} ) {
    print "Printing help...";
}
else {
    print "No help requested, none given.";
}