Help for this page
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.'
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (508 votes), past polls
