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