Otnosno htpasswd:

Author: T.R. Fullhart, kayos@kayos.org

use Tie::Htpasswd;
tie %htpasswd, 'Tie::Htpasswd', "/home/httpd/htdocs/.htpasswd";

$htpasswd{username} = "password"; # assignment automatically crypt()s
delete $htpasswd{username}; # removed from .htpasswd

untie %htpasswd; # save the file


$_->{$.};s:.?(.)..(.):print(($1..$2)[9,0,15,7]):e