use strict;
use warnings;
use feature qw/:5.10/;

#use ...;

$| = 1;

BEGIN {
        sub script_path {
                my $script_path = $0;
                $script_path =~ s/(.+)\\.+$/$1/;
                return $script_path;
        }

        push @INC, script_path();
        binmode(STDOUT, ":encoding(cp850)");
        binmode(STDIN, ":encoding(cp850)");
}

$SIG{INT} = sub { exit };

# ein paar gängige subs
# sub  Foo { ... }

my $x = 1;
my @perl_files = glob script_path.'/*.pl';
for my $perl_file (@perl_files) {
        printf("%2d %s\n", $x++, $perl_file);
}
print "\n";

my $choice = <>;
chomp($choice);

print "\n===========================\n\n";

open (my $fh, '<', $perl_files[$choice-1]) || die "$!";
my $data = join('', <$fh>);
eval qq|#line 1 "$perl_files[$choice-1]"\n$data|;
die $@ if $@;
close $fh;

sub init{
        my $self = shift;
        # declare opts
        $self->{OPTS} = {
            date => {type => 's', descr => "Datum, Format T.M.J oder T.M.-J (v. Chr.)"},
            version => { descr => "Zeigt die Version dieser Anwendung, wenn als Flag gesetzt"},
            verbose => { descr => "Gibt weitere Informationen aus, wenn als Flag gesetzt" },
        };
}

D:\>cli.pl Date
Untersucht ein eingegebenes Datum, Optionen:
--date, -d: Datum, Format T.M.J oder T.M.-J (v. Chr.)
--verbose, -verb: Gibt weitere Informationen aus, wenn als Flag gesetzt
--version, -vers: Zeigt die Version dieser Anwendung, wenn als Flag gesetzt