Three problems that I found:

1) You forgot to use Crypt::Blowfish; ;)
2/3) In the line: while ($plaintext) { ...
$plaintext should be $text, and while should be changed to for.

After fixing those, I had success. Make sure the input is exactly 8 bytes long, or you will get the uncaught exception you wrote of.