package Foo;

use Moose;
use CGI;
has 'cgi' => (
    isa => 'CGI',
    handles => ['header'],
    default => sub { CGI->new },
);

package main;

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