Select Code to Download

my $path = "/path/ending/with/a/filename";

my $file = (split(/\//,$path))[-1];

print "$file\n";

use File::Spec;

...
my ($volume, $path, $file) = File::Spec->splitpath($fullpath);

print "$file\n";