my $input = <>;

{
    no strict 'refs';
    *{"TestPkg::$_"}{CODE}->($input)
        foreach( grep {    !/^_/
                        && defined *{"TestPkg::$_"}{CODE} }
                 keys %{*{'TestPkg::'}}
        ); 
}