print "Today is "; given ($tgt) { when("fr_fr") { print “$day" ; } when("it_it") { print “$day" ; } default { print “$day" ; } }