#!/usr/bin/perl
print "Content type: text/html\n\n";
$username = $r->connection->user;
my($ret, $password) = $r->get_basic_auth_pw;
print $password;