sub new{

    my ($class,$logpath) = @_;

    unless ( ref $singleton eq 'Log' ) {
        $singleton = {};
        bless( $singleton, $class );
        $singleton->create_path($logpath);
    }

    return $singleton; 
}