[Perl 6] proceed and succeed

my $w = Date.today.day-of-week;

given $w {
    when 1 {
        proceed;
    }
    when 2 {
        proceed;
    }
    when 4 {
        "Week".say;
    }
    when 3 {
        "Hump day".say;
    }
    when 5 {
        "Thank God It's Friday".say;
    }
    when 6 {
        proceed;
    }
    when 7 {
        "Weekend".say;
    }
    default {
    die "Unknown day";
    }
}