Select Code to Download

use File::Find;

...
    sub { $dir = $File::Find::name if ( /hello\.txt/ ); },
    '/tmp/test'
);

use File::Find;

...
    my $e = $@;
    die $e if !( ($dir) = /^match: (.*)/ );
}