my $A = My::->new();
my $method = $method_list{$ARGV[0]}
    or die "Invalid method $ARGV[0].";
$A->$method(@ARGV[1..$#ARGV]);