Select Code to Download

username1:unixcryptpassword
username2:unixcryptpassword

sub is_user {
        my $user = shift || return;
...
        return 0 if ($info eq '0');
        return 1;
}

#!/usr/bin/perl -wT
#
...
  print "\n";
}

AuthType Basic
AuthName "Authorisation Required"
...
<Limit GET POST>
    require user username
</Limit>