For checking of file existing you can use -e (see perldoc -f -e and you will know all about working with file system in Perl):

if(-e $fname) { print 'File exists!' }
else { print 'File not found' }
[download]

in your script or in the module.
Also you can use module File::Find or File::Find::Rule

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);