use strict;
    use warnings;

    use CProcess; # own class
    use B;

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


##</code><code>##

use strict;
use warnings;
use Carp;
use FileHandle;
use Sys::Hostname;
use Cwd;
use Win32::Registry;
use IO::Select;
require Win32::Console;
require Win32::Clipboard;
require Win32::PerfLib;
require Win32::OLE;
require Tk::MainWindow;
require 5.000;
require Exporter;

##</code><code>##

require B;

    my $anon = [];
    my $otherref = $anon;

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