#!/usr/bin/perl

use strict;

my $file_name  = "testme";
my $full_file  = "../../htdocs/images/photos/$file_name";
my $parse_name = ( split( "/", $full_file) )[-1];

print $parse_name;