package Logger; {
 
    my $instance;
 
    sub instance {
        return $instance if $instance;
        my $class = shift;
        $instance = bless {@_} => $class;
    }    
}