This will now fail if you call it as a subroutine. :) Try this instead:

sub passwd {
        my $ppr = Authen::Passphrase::MD5Crypt->new(
                        salt_random => 1,
                        passphrase => pop);
        return $ppr->as_crypt;
        }
[download]

Now it will work no matter which way you invoke it.

-- 
Education is not the filling of a pail, but the lighting of a fire.
 -- W. B. Yeats