Select Code to Download

my $err = ioctl STDOUT, &TIOCGWINSZ, $winsize;

my $err = ioctl(TTY, &TIOCGWINSZ, $winsize = "");

sub TIOCGWINSZ {
    0x40087468
}

#!/usr/bin/perl 

...
sub TIOCGWINSZ {
    0x40087468
}