package LogKlasse;
sub new {...}
sub writeError{
print {$fh} $_[1],"\n";
}
1;