package funnybusiness;
use warnings;
use strict;

sub s1 {
require 'sys/ioctl.ph';
print FIONREAD() . "\n"; # should print some number
}

1;