given( $ARGV[0] ) {
    when (gw(/foo/i 0)) {do this}
    when (gw(/goo/i 1)) {do that}
}