#!/usr/bin/perl
my $pid = open (PS, "net user $ENV{USERNAME}|") || die "Can't Execute";
while (<PS>){
    $root = 1 if (/^Local Group Memberships/ && /\*Administrators/);
}
print "user is admin" if $root;