package MyLogger::Default;

use strict;
use warnings;

use all_Unix_stuff;

sub new{
    my ($class) = @_;

    return bless {}, $class;
}

sub log {
         &syslog(LOG_DEBUG,"Where is Marvin??");
}

...