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