# dies ist die .pm Datei
package Manager::Shop;
use vars qw($DEMO $tabn $ADDR $oid);

$DEMO = 1; # usw.