I need to travel a root directory and its sub directories to grab all.pdf files. I have the restriction of not being able to download modules on th eunix box accept for the stadard module. so using the following line of cod eto grab the list of files:

@filelist=`find $source_dir -name "*.pdf"`;

#print @filelist; foreach $files(@filelist) { print "\n $files"; }

no wthe problem i sthat I need to strip th eFilename with all the dir and sub dir in fo.

As I am new to Perl having a hard time coding it out. Can anyone please help me with the code???

use the File::Basename module, it is a core module that comes with perl. You could also use File::Find (also a core module) instead of shelling to the find command to find all the pdf files. -------------------------------------------------