use Highlander -silent; #### BEGIN { require Highlander; Highlander->import(-silent); } #### my $opt_silent; sub import { my $class = shift; $opt_silent = 0; for (@_) { if ($_ eq -silent) { $opt_silent = 1; } else { require Carp; Carp::carp("Unrecognized symbol $_"); } } }