use Sam::Constants qw(REG PRE POST);
    ...

    $content_ref->{PRE}     = PRE;
    $content_ref->{REG} = REG;
    $content_ref->{list}     = $list;
    $content_ref->{list_alt} = $list_alt;


    # for mailer and pass content variable to template
    my %email_args = (
        from        => $pool_ref->email,
        bcc         => $pool_ref->admin->email1,
        text_template => 'list_txt.tt2',
        content_ref => $content_ref,
    );
    require Template;

    my $tt = Template->new(
        {
            INCLUDE_PATH => $BASE_DIR . '/root/src/',
            INTERPOLATE  => 1,
        }
    ) || die "$Template::ERROR\n";
    $tt->process( $email_args{text_template},
        $email_args{content_ref} )
      || die $tt->error(), "\n";