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