my $sub_to_run = \&main;
GetOptions( 'striphtml!' => sub { $sub_to_run = \&striphtml } );

$sub_to_run->();