use Net::SFTP::Foreign;

my $sftp = Net::SFTP::Foreign->new(host => $hostname)
  or die "unable to connect to $hostname";

my $t24h_ago = time - 24*3600;
my @lf = $sftp->find('.',
                     wanted => sub {
                       my (undef, $entry) = @_;
                       $entry->{a}->mtime > $t24h_ago;
                     });

for my $lf (@logfiles) {
  my $name = $lf->{filename};
  my $attr = $lf->{a};
  printf("file: %s, mode: %o, uid: %d, gid: %d, size: %d, atime: %d, mtime: %d\n",
         $name, $a->mode, $a->uid, $a->gid, $a->size. $a->atime, $a->mtime);
}