#! /usr/bin/perl -T -I.
use strict;
use warnings;

use 5.020;
#use Getopt::Long;

my $class = shift // die "Bitte Klasse angeben.\n";

# $class is tainted; so untaint it
if ( $class =~ m|^([a-z0-9]+(?:::[a-z0-9]+)*)$|i ) {
    $class = $1;
}
else {
    die "'untaint' fehlgeschlagen.\n";
}

( my $classfile = $class . ".pm" ) =~ s|::|/|g;



require "$classfile";

say $class->VERSION;

__END__