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

getopts("v:h");
our($opt_v, $opt_h);

print "\$opt_v: $opt_v\n" if defined($opt_v);
print "Helppiä tulee\n" if defined($opt_h);

# Ks. perldoc perlopentut