printf $file "%s:%s\n", $username, $password;

##</code><code>##

    use Favourite::Encryption::Module qw[encrypt];
    printf $file "%s:%s\n", $username, encrypt $password;