package Log;
my $instance = undef;

sub new {
    shift; 
    unless ($instance){
       $instance={};
       bless $instance,"Log";
    }
    return $instasnce;
}