#!/usr/bin/perl --

use strict;
use warnings;

$\="\n";

print "\\*STDOUT:    ", \*STDOUT;
print "*STDOUT:     ",  *STDOUT;
print "*STDOUT{IO}: ",  *STDOUT{IO};
print '';

for (1..2) {
    print "\\*STDOUT:    ", (\*STDOUT)  ->can('print') ||0;
    print "*STDOUT:     ",  *STDOUT     ->can('print') ||0;
    print "*STDOUT{IO}: ",  *STDOUT{IO} ->can('print') ||0;
    print '';

    require IO::Handle;
}

##</code><code>##

\*STDOUT:    GLOB(0x182a044)
*STDOUT:     *main::STDOUT
*STDOUT{IO}: IO::Handle=IO(0x182a054)

\*STDOUT:    0
*STDOUT:     0
*STDOUT{IO}: 0

\*STDOUT:    0
*STDOUT:     0
*STDOUT{IO}: CODE(0x18784f4)