pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >',
priv => 'Privilege level changed on $_[0]',
pr => '$_[0] de $main::mycall $main::cldate $main::ztime >',
pr2 => '($_[0]) de $main::mycall $main::cldate $main::ztime >',
priv => 'Privilege level changed on $_[0]',