Pick an encryption algorithm that suites your needs. Then change the line that does:

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

by

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