#!/usr/bin/perl
use strict;
use warnings;

open(my $fh, '<', $file) or die( "ERROR OPEN $file ($!)\n" );
while(my $cmd=<$fh>)
{
  chomp($cmd);
  # Kommenatre entfernen
  next if($cmd=~/^\s*#/);

  my $fref=main->can($cmd);

  # Error wenn eine Unbekannter Aufruf kommt:
  die("CMD:$cmd FILE:$file LINE:$. Not implemented!") unless $fref;

  $fref->();
}
close($fh);

##############################
sub do_default { print "DOING DEFAULT\n" }
sub do_sub1 { print "DOING SUB1\n" }
sub do_sub2 { print "DOING SUB2\n" }
sub do_sub3 { print "DOING SUB3\n" }