use strict; package testen; my $PLUGINNAME = 'testen'; my $VERSION = '0.1'; sub new{ my $class = shift; my $self = { 'class' => $class, 'name' => $PLUGINNAME, 'version' => $VERSION, 'tmp_folder' => '', 'functions' => [qw( TestFunk MehrTestFunk )] }; bless( $self, $class ); return $self; } # PLUGIN Funktionen >> sub TestFunk{ return "Huhn ist nicht Hase"; } sub MehrTestFunk{ return "Huhn ist nicht Hase"; } 1;