#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

# find mit Closure
find(sub {print if /\.pl$/;},'.');


# find mit Callback
find(\&wanted,'.');

sub wanted {
	print if /\.pl$/;
}