With CGI.pm, you ought to be able to do something like this untested code:

use CGI
$q = new CGI;
print $q->header(-status=>'401 Authorization required');
# add code here to print the rest of the error document
[download]