#!/usr/bin/perl

use warnings;
use strict;
use Switch;

my $string = "test";

switch ($string) {
   case "test" { print "ok\n"; }
   else        { print "ko\n"; }
}

1;