Update publish/perl/get-passwd.md