my $strip = 0;
GetOptions(striphtml => \$strip);
if ($strip) {striphtml()} else {main()}

##</code><code>##

my $strip = 0;
GetOptions(striphtml => sub {striphtml(); $strip = 1})
main() unless $strip;