...
our @EXPORT_OK   = qw( ReadPipe );
my $foo;
...