Select Code to Download

use File::Basename;

my $s = "/home/virtual/path/to/www/some/directory/filename.txt";
my $fname = basename($s);

$fname =~ s/\.[^\.]*$//;