Select Code to Download

if ($var eq 'one') 
{ 
...
{
    die "Invalid \$var"; 
}

my %subs = ( one => \&subOne,
             two => \&subTwo,
...
{
    die "Invalid \$var";
}