use strict; use Store_Config; use Symbol qw(qualify_to_ref); #Pull the reference to the __DATA__ handle my $fh = qualify_to_ref(DATA => 'Store_Config'); #$fh can now be acted on like a file handle read($fh, my $config, -s $fh); print "Store_Config.pm's __DATA__ content is: [$config]\n";