my $userid=getuserid or castigate_user;