package My::filtertest; print 'Hello World'; eval "print 'Just another perl hacker';"; 1;