$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);