#!/opt/bin/perl -w
#
#
use strict;
use Getopt::Long qw(GetOptions);
use Pod::Usage qw(pod2usage);

my $vars;
my @morevars;

GetOptions("striphtml" => sub { striphtml() });

main();
exit();

sub main{...}
sub striphtml{...}