$cmd = qq(perl -e "print ((stat '$path')[4])");
my $uid = $self->ssh->capture($cmd);

##</code><code>##

$cmd = qq(perl -e "print ((stat '$path')[4])");
my $uid = $self->grab($cmd);

{

package MyOpenSSH 0.000001;

  use Carp;
  use Data::Dumper;
  use Moose::Role;
  use Modern::Perl;
  use Net::OpenSSH;
  use Params::Validate;

  has 'ssh' => (is => 'rw', isa => 'Net::OpenSSH', required => 1, lazy => 0, handles => qr/.*/, ); 
  sub grab {
    my $self = shift;
    my $opts = shift;

    $self->ssh->capture($opts, @_);
    croak ('ssh command failed') if  $self->ssh->error; 
  }

}