Select Code to Download

package pq;
use strict;
...

sub pr { print main::FO1; }
1;

use strict;
use warnings;
...
my $obj = new pq;
pq->pr();        # says 'print() on unopened filehandle FO1 at pq.pm l
+ine 28.'