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
antirice The first rule of Perl club is - use Perl The ith rule of Perl club is - follow rule i - 1 for i > 1
|