#!/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*#/);

  {
    no strict 'refs';
    &$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" }