Help for this page

Select Code to Download


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

...
my $filesize = -s $fh;
die $filesize; # undef at debugging!
# ... file read routines, that resulted blank after the upgrade
  2. or download this
    sub identify {
   my $token = shift;
...

   # some calls to CGI.pm methods, where I used $q
}
  3. or download this
    sub identify {
   my $token = shift;
...

   # some calls to CGI.pm methods, where I used $q
}