Help for this page

Select Code to Download


  1. or download this
    
#! perl -w
...
package main;
print "$This::Module::_Filename\n";
  2. or download this
    
#! perl -w
...
print " @{[ This::Module::_Filename ]}\n";
#Bareword "This::Module::_Filename" not allowed while "strict subs" in
+ use at getfilename1.pl line 13.