$ls -al
total 112
$ls -1
Interface
Parser
Parser.pm
filetest.pl
loadme.pl

##</code><code>##

$cat filetest.pl 
#!/usr/local/ActivePerl-5.10/bin/perl
#===============================================
#
#         FILE:  filetest.pl
#
#        USAGE:  ./filetest.pl 
#
#  DESCRIPTION:  
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#      VERSION:  1.0
#      CREATED:  10/12/2009 15:16:25 EDT
#     REVISION:  ---
#===============================================

use strict;
use warnings;


use FindBin qw($Bin);
my $good_filename = 'loadme.pl';
my $bad_filename = 'Loadme.pl';

print "Found $Bin/$good_filename" . "\n" if (-e $Bin . '/' . $good_filename);
print "Found $Bin/$bad_filename" . "\n" if (-e $Bin . '/' . $bad_filename);

##</code><code>##

$./filetest.pl 
Found /Volumes/UserData/Users/dattanik/Programs/Perl/Work_area/Admin_server/lib/Admin_server/loadme.pl
Found /Volumes/UserData/Users/dattanik/Programs/Perl/Work_area/Admin_server/lib/Admin_server/Loadme.pl