Using perl to parse plist data from dscl snippet, example using GeneratedUID

getguid.pl

#!/usr/bin/perl
use Foundation;
my $NSASCIIStringEncoding = 1;
my $dscl = "/usr/bin/dscl";

sub getGeneratedUID(){
  $name = shift;
  my $command = "$dscl -plist . -read /Users/$name GeneratedUID";
  print "$command\n";
  my $output = `$command`;
  my $plist = NSString->alloc()->initWithCString_encoding_($output,$NSASCIIStringEncoding);
  my $data = $plist->dataUsingEncoding_($NSASCIIStringEncoding);
  my $record = NSPropertyListSerialization->propertyListWithData_options_format_error_($data,NSPropertyListImmutable,0,0);
  my $array = $record->objectForKey_('dsAttrTypeStandard:GeneratedUID');
  return $array->objectAtIndex_(0)->description()->UTF8String();
}
my $logname = $ENV{'LOGNAME'};
my $guid = &getGeneratedUID($logname);
print "GeneratedUID: $guid\n";