Help for this page

Select Code to Download


  1. or download this
    Status: 500
Content-type: text/html
...

</p>
[Fri Jul  6 21:02:17 2018] login.cgi: fileparse(): need a valid pathna
+me at login.cgi line 34.
  2. or download this
    #!/usr/bin/perl      -w
#use strict;
...
my $dir=dirname($ENV{'SCRIPT_FILENAME'});
#my $dir=cwd(dirname($ENV{"SCRIPT_FILENAME"}));