#!/opt/bin/perl

require "find.pl";

&find('.');

exit;

sub wanted
{
    if ((-T $_) && ! (-B $_))
    {
        print $name, "\n";
    }
}