PID USER     PRI  NI  SIZE  RSS SHARE STAT %CPU %MEM   TIME CPU COMMAND
 6199 nobody    15   0 14384  14M  5520 S    29.6  0.6   0:07   0 httpd
 6251 nobody    15   0 14816  14M  5808 S    12.9  0.7   0:05   0 httpd

##</code><code>##

 $did ||= 1100;
 my $cache = new Cache::FileCache ( 
                 { namespace => 'mySpace',
                   default_expires_in => '600', } );

 my $data = $cache->get( $did );
 warn "using data from cache! (PID: $$) " 
    if DEBUG and $data;

 if ( ! $data ) {
     use Net::SSLeay qw(get_https post_https sslcat make_headers make_form);
     my $url = "*****";

     $SIG{ALRM} = sub { return DECLINED; };
     alarm(15);
     my ($page, $response, %reply_headers) = 
          get_https($secureHost, 443, "$url");
     alarm(0);

     ### process $page to get $data .... 
     warn "setting cache now for $did (PID: $$) " if DEBUG;
     $cache->set( $did, $data, "600" );
   }