Select Code to Download

Select or download this

fileno is 2
fileno is 2
That's all, folks!

Select or download this

sub new {
    die "$0: main::new() sub called\n";
...
    require "IO/Handle.pm";
    return IO::Handle::->new();
}

Select or download this
```
print OUTPUT while <INPUT>;
```

Select or download this

$op = shift() || die;
for (@ARGV) {  
...
    eval $op; die if $@;
    rename($was, $_) || die "rename: $!" unless $was eq $_;
}

Select or download this

sub fhbits {
   my(@fhlist) = split(' ',$_[0]);
...
   $bits;
}
$rin = fhbits('STDIN TTY SOCK');

Select or download this

sub fhbits {
   my @fhlist = split(" ", $_[0]);
...
   return $bits;
}
$rin = fhbits(*STDIN, *TTY, *SOCK);

Select or download this

no strict; no warnings; no less tricksy;
foo(lish);
...
come on, please give up;
package UNIVERSAL;
sub AUTOLOAD { print "I am masquerading as $AUTOLOAD(@_)\n" }