+my $command = $ARGV[0];
+if ($command eq "ShowMapping") {
+ my $mapping = $mapper->get_mapping();
+ foreach (@$mapping) {
+ print $_->{fromacc}."\n";
+ }
+ die ("Kein Mapping vorhanden.") unless (scalar(@$mapping) > 0);
+} elsif ($command eq "CalcMapping") {
+ (my $fromacc, my $toacc) = $mapper->calc_mapping(2022);
+} else {
+ die "Invalid command: $command";
+}