my $start_with = another_value() or do {
    @_ = ("Could not get another value");
    goto &wreturn;
};
sub wreturn {warn @_}