package Foo;

use Moose;

has 'cgi' => (
    isa => 'CGI',
    handles => ['header'],
);


package main;

my $f = Foo->new();
print $f->header;