Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -T

...

use strict;
use warnings;
  2. or download this
    if ($Bin =~ m!^(/home/someuser/somewebsite/[a-z]{2,4}/cgi-bin/)!)
  3. or download this
    if ($Bin =~ m!^(/home/someuser/somewebsite/[a-z]{2,4}/cgi-bin/)! ) {
   $Bin = $1;
...

$Bin =~ m!^(/home/someuser/somewebsite/[a-z]{2,4}/cgi-bin/)! or die "W
+here am I?\n";
$Bin = $1;