Help for this page

Select Code to Download


  1. or download this
        sleep 1;                     # <--- WORKS!
    #use Time::HiRes 'usleep';   # <--- DOES NOT!!!!!
...
    print $html;
    # close STDIN; close STDOUT; # no effect
    exit 0;                      # no effect
  2. or download this
    1062780368.396    142 xxx.xxx.184.176 TCP_MISS/500 5394 GET http://dev
+el3.ourdomaian.org/cgi-bin/regex.pl - DIRECT/xx.xx.62.98 text/html
1062780461.169   2341 xxx.xxx.184.176 TCP_MISS/500 5394 POST http://de
+vel3.ourdomaian.org/cgi-bin/regex.pl - DIRECT/xx.xx.62.98 text/html
...
1062780718.707   2430 xxx.xxx.184.176 TCP_MISS/200 4506 POST http://de
+vel3.ourdomaian.org/cgi-bin/regex.pl - DIRECT/xx.xx.62.98 text/html
1062780722.873   2572 xxx.xxx.184.176 TCP_MISS/200 4506 POST http://de
+vel3.ourdomaian.org/cgi-bin/regex.pl - DIRECT/xx.xx.62.98 text/html
  3. or download this
    #!/usr/bin/perl -w

...
#---------------------------------------------------------------------
+----------
# subroutines
#---------------------------------------------------------------------
+----------