The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyApp::StashTest;

use strict;
use base qw(App::CLI::Command);

sub run {

    my($self, @args) = @_;
    $self->stash->{result} = $args[0];
    $main::RESULT = $self->stash->{result};
}
1;