could the contents of the data feed by stdin_data we put in a subroutine instead..

I tried to put it in a subroutine like this:

sub finder {

use File::Find::Rule;


my $today = time();
my $onehour = $today - (60*60);

my @files = File::Find::Rule->file()
                            ->name("*.0")
                            ->mtime("<$onehour")
                            ->in( "/export/home/adm_garcimo" );

for my $file (@files) {
    return $file;
}
}
[download]

then call the subroutine:

my $output = $ssh->capture({stdin_data => <<'EOS'}, '/usr/bin/perl');
finder()
EOS

print $output
[download]

but it does not find the subroutine..

thanks again.