package CheckTest; use strict; use warnings; use base 'CheckContext'; sub test : VOID { print 'hallo'; } sub zwo : SCALAR { return 'hallo'; } sub drei : LIST { return (1,2,3); } 1;