$VAR1 = [
          bless( \*Symbol::GEN0, 'IO::Socket::INET' ),
          bless( \*Symbol::GEN1, 'IO::Socket::INET' )
        ];
$VAR1 = [
          bless( \*Symbol::GEN1, 'IO::Socket::INET' )
        ];