#!/usr/bin/perl

use strict;
use File::Find;

my $file;

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

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