use Foo;
...
my $wuzzie = &Foo::sysread(FH, $scalar, $length);