Samba PDC не работает скрипт (

Делаю вот по этому ману- http://samba.org.ua/articles/?section=2&articleid=74
Скрипт checkmapl.pl выдаёт,что
Undefined subroutine &main::get_groupmap called at samba-group.pl line 11.
Сам скрипт -

#!/usr/bin/perl -w
# checkmap.pl
# v1.01
use strict;
use vars qw/$path2net %groupmap %realmap %group/;
$path2net = '/usr/local/samba/bin/net';
%groupmap = (
'Domain Guests' => 'Guests',
);

get_groupmap(\%realmap) or exit(1);
get_unixgroup(\%group) or exit(1);

while (my($domain_group,$unix_group) = each(%realmap)){
$unix_group = $groupmap{$domain_group}
if exists($groupmap{$domain_group});
$unix_group = check_name($unix_group=~/^\-?[\d]*$/
? $domain_group : $unix_group);
unless (exists($group{$unix_group})){
system("/usr/sbin/groupadd $unix_group");
exit(2) if $? >> 8;
$group{$unix_group} = [];
}

if ($realmap{$domain_group} ne $unix_group){
system(sprintf("%s groupmap modify ntgroup='%s' unixgroup='%s'",
$path2net,$domain_group,$unix_group));
exit(3) if $? >> 8;
}
}
exit(0);