my %have_module;
sub have_module {
    my $mod = shift;
    if ( ! exists $have_module{$mod} ) {
        $have_module{$mod} = eval "require $mod";
    }
    return $have_module{$mod};
}