Select Code to Download

for ( values %main:: ) {
    my $io = *{$_}{IO} or next;
...
        print "($name is a virtual handle)\n";
    }
}

fileno of  stdin is 0
fileno of stdout is 1
...
fileno of stderr is 2
fileno of STDERR is 2
(ARGV is a virtual handle)

fileno of STDERR is 2
fileno of  STDIN is 0
...
(ARGV is a virtual handle)
fileno of   DATA is 3
fileno of stderr is 2