## stuffintocache.pl
#!/usr/bin/perl --
use strict; use warnings;
use Getopt::Long();
use Capture::Tiny qw/ capture /;
Main( @ARGV );
exit( 0 );
sub Main {
    my %opt;
    Getopt::Long::GetOptionsFromArray(
      \@_,
      \%opt,
      'session=s',
      ...
    )
    my($stdout, $stderr, $exit) = capture {
        system( $cmd, @args );
    };
    my $session = get_session_id();
    my $cache   = get_cache_handle();
    $cache->set( $session, [ 1, $stdout, $stderr, $exit ] );
    return;
}