my $user_name = $ENV{LOGNAME} || $ENV{USER} || getpwuid($<);
if ($user_name eq 'root') {
}