my %h;
while(my $r = $st->fetchrow_hashref())
{
	my $mod = $r->{'Module'};
	my $sub = $r->{'Subroutine'};
	my $par = $r->{'Params'};
	
	$h{$r->{'VarName'}} = sub { $mod->$sub(eval "$par"); };
}