##
package funnybusiness;
use warnings;
use strict;
sub s1 {
require 'sys/ioctl.ph';
print FIONREAD() . "\n"; # should print some number
}
1;
##
##
use warnings;
use strict;
use funnybusiness;
#require 'sys/ioctl.ph';
funnybusiness::s1;