Throwing your code on us with really a few explainations and an unexplicative subject is not the best way to ask for help, in my humble opinion.

For this reason, all I can tell you is: just check perldoc -f crypt. All your crypts are wrong. And use strict! I would also suggest to reask better. Thanks.

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}