Short Perl Script to Reset *ix user passwords