Help for this page

Select Code to Download


  1. or download this
    use Win32::API 0.20;

...
    my $pwss = (unpack("LLLLLLLLLL", $m))[2];
    return int($pwss/1024)." kB";
}
  2. or download this
    nothing : Size = 2252 kB
push : Size = 4776 kB
deleted : Size = 4776 kB
  3. or download this
    nothing : Size = 2252 kB
push : Size = 4776 kB
deleted : Size = 4776 kB
  4. or download this
    __END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;