Select Code to Download

AuthUserFile .htpasswd 
AuthGroupFile /dev/null
...

using in script

#!/usr/bin/perl -Tw

...

print "$username has completed uploading $file_name: $total_bytes_read
+ bytes<br>";
print "Done...";