Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wl
    use strict;
    ...
    if ($num_keys != $expected_keys) {
        print "Whoops! Expected $expected_keys keys, but I got $num_keys!"
    +;
    }
    
  2. or download this
    %stats = (
               'fmem' => '34048',
    ...
               'runproc' => '1',
               'load' => '0.00'
             );