use Win32::NetAdmin;

my @users;
Win32::NetAdmin::GetUsers("\\\\PDC",'',\@users);
my @computers = grep { /\$$/ } @users;

print join("\n",@computers);