strict und warnings fördern zutage:

main::episode() called too early to check prototype at tst.pl line 16.

wenn man die sub inkl. Prototype voranstellt klappts auch!