'menu_left' => 'sub {
use Links::test;
Links::test::menu_template($IN, $CFG, $GLOBALS, $USER);
use GT::Dumper;
print "Content-Type: text/html\n\n";
print "\$CFG: " . GT::Dumper::Dumper(\$CFG) . "<br>\n\n";

}',

package Links::test;
# ==================================================================
use strict;
use vars qw/$GRAND_TOTAL $IN $CFG/;
use GT::Dumper;


sub menu_template {
# --------------------------------------------------------
# This routine determines how the rate failure page will look like.

($IN, $CFG) = @_;
print "Content-Type: text/html\n\n";
print "\$CFG: " . GT::Dumper::Dumper(\$CFG) . "<br>\n\n";
}