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 $_");
        }
    }
}