Net::LDAP::Control::Sort ?

[<CZa...@wi...>]

Hello, I am trying to sort my output using "Net::LDAP::Control::Sort" but I
am getting this error syntax error at email_search.pl line 25, near "if
$ctrl "
I followed the example in the "Programming with Net::LDAP" guide slide "
#52".  Is this correct or a typo.?


  $sort = Net::LDAP::Control::Sort->new( order => "sn -mail" );

foreach my $i (@OU) {

        foreach my $j ("a" .. "z") {
                @args = (
                                base => "ou=$i,o=Wiley",
                                scope => "subtree",
                                filter => "(sn=$j*)"
                );
                $r = $ldap->search( @args, control => [ $sort ]);
                ($ctrl) = $r->control( LDAP_CONTROL_SORTRESULT );

        die ldap_error_desc($r->code) if $r->code;
                if $ctrl && $ctrl->result;
                @entries = $r->entries;

                        foreach $entry (@entries) {
                                $mail = $entry->get_value('mail');
                                $cn = $entry->get_value('cn');

                           if ($mail ne "") {
                                @email = split(/@/, $mail);
                                printf "$i: $email[0]\n";
                           } else {
                                print "$i: $cn has no email address.\n";
                           }
                        }
        }
}