use File::Basename; # I ain't afraid of no ghosts..
$fullname = "C:\\apple\\index.htm";
my $file = basename $fullname;
print $file;