#!../../iw-perl/bin/iwperl use very strict; my $dootndo = WFUser::iw_newbie->new($documentation); $dootndo->ReadDocumentation("WFT tutorial"); $dootndo->GoToTraining() if Allowed($dootndo);