Select Code to Download

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

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

}