Package Foo;
use strict;
use Exporter;
use vars qw(@EXPORT_OK);
@EXPORT_OK = (&sysread);

sub sysread
  { print "this is not the real thing\n"; }

Package Bar;
use Foo qw(sysread);

print "about to test sysread\n";
sysread;