#!/usr/local/perl -w

use File::Find;
use strict;

&find(\&wanted, '/rootdata');

sub wanted {
        /^myscripts$/ && print("$_\n");