#!/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;
}