#!/usr/bin/perl -w

use strict;
use File::Find;


find (
        {
                wanted => \&wanted ,
        },
        '/tmp/T1test'
);
        sub wanted
        {
        if( $File::Find::name =~ /\.jpg/i)
                {print "$_\n"}                          
        }