switch: { 
warn("manage_users.cgi line 54 '$action'");
      #Request from User for Login Form
      ($action eq "GetLoginForm")  && do {
        manageusers::OpenConnection();
        } 
 } 

##</code><code>##

my $q = new CGI::Switch;

##</code><code>##

use Switch;

    switch ($val) {
        case 1          { print "number 1" }
        case "a"        { print "string a" }
        case [1..10,42] { print "number in list" }
        case (\@array)  { print "number in list" }
        case /\w+/      { print "pattern" }
        case qr/\w+/    { print "pattern" }
        case (\%hash)   { print "entry in hash" }
        case (\&sub)    { print "arg to subroutine" }
        else            { print "previous case not true" }
    }