Alas, there's the rub. You're offering this script for download as well. While it may not work for your machine, it may work elsewhere. Thus I have to say it: fix your damn code!

How do you extract only the file? Glad you asked:

use File::Spec;

my $file = "../this/is/a/problem/file.pl";
$file = (File::Spec->splitpath($file))[2] if $file;
print $file;
__END__
file.pl
[download]