package TelnetClient::Functions;
..
{
    my $checksyntax;
    my $parser;
    my $grammar;

    sub init_parser
    {
        my $grammar = q§ ... §;
        my $parser = new Parse::RecDescent($grammar);
    }
}