#!/usr/bin/perl -w
use strict;
use File::Find;  #a core module

my $start_dir = "C:/Exam";

find (\&wanted, ($start_dir));

sub wanted
{
   print "$File::Find::name\n" if -f;
}