Help for this page
sub do_x { print "processing x\n"; ... } my %subs = ( x => \&do_x, y => \&do_y );
$subs{$type}->();
www.com | www.net | www.org
No recent polls found