Select Code to Download

    use strict;
    use warnings;
...

    CProcess->PrintProcessInfo("perl.exe");

use strict;
use warnings;
...
require Tk::MainWindow;
require 5.000;
require Exporter;

require B;

...
    my $otherref = $anon;

    my $refcount =  B::svref_2object($anon)->REFCNT(); # => 2