#!/usr/bin/perl

use strict;
use File::Find;

my $dir = find( \&wanted, '/tmp/test' );
print "$dir\n";

sub wanted {
    return $File::Find::name if ( /hello\.txt/ );
}