sub slog(@) { 
    $::_slogfh||=new IO::File $_[0],">>";
    print $::_slogfh @_,$/ 
};
sub noslog() { undef $::_slogfh };