Select Code to Download

RETURN VALUE
       Usually, on success zero is returned.  A few ioctl() requests  
+use  the
       return  value as an output parameter and return a non-negative 
+value on
       success.  On error, -1 is returned, and errno is set appropriat
+ely.

 require 'sys/ioctl.ph';
    die "no TIOCGWINSZ " unless defined &TIOCGWINSZ;
...
    print "  (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixe
+l;

    print "\n";

ret num=0, retstring=0 but true
(row,col) = (79,80)

my @ar=(1,2,3,4,5,6);
my ($x,$y,$z)=@ar;