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

my %funktions=(
  default => \&do_default,
  sub1    => \&do_sub1,
  sub2    => \&do_sub2,
  sub3    => \&do_sub3,
);

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

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

  $funktions{$cmd}->();
}
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" }