package pq;
use strict;
use warnings;

use constant {
    ONE => "1"
};

sub new {
    my ($class) = @_;

    bless {}, $class;
}

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