#!/usr/bin/perl

use Foo;
use Bar;
print while <DATA>;
system "ls -l /proc/$$/fd";
print "Foo: ",fileno Foo::DATA, "\n";
print while <Foo::DATA>;
print "Bar: ",fileno Bar::DATA, "\n";
print while <Bar::DATA>;

__DATA__
so this works.