check executing as root

gistfile1.pl

chomp(my $user = `/usr/bin/whoami`);
unless ($user eq 'root') {
    print "cannot exec by $user user.\nyou can execute this script by root only.\n";
    exit;
}