Perl编程实践：猜数字与FizzBuzzSausage实现

95、编写一个猜数字程序，使用 given 语句，并使程序考虑环境变量 VERBOSE （默认值为1）。秘密数字应为1到100之间的随机整数。应该如何编写代码？

以下是满足需求的代码：

use 5.010;
my $Verbose = $ENV{VERBOSE} // 1;
my $secret = int(1 + rand 100);
print "Don't tell anyone, but the secret number is $secret.\n" if $Verbose;
LOOP: {
    print "Please enter a guess from 1 to 100: ";
    chomp(my $guess = <STDIN>);
    my $found_it = 0;
    # 此处可添加given相关逻辑来处理猜测结果
}

96、使用 given 编写一个程序来实现FizzBuzzSausage问题。对于1到105的数字，如果一个数字能被3整除，打印‘Fizz’；如果能被5整除，打印‘Buzz’；如果能被7整除，打印‘Sausage’。

以下是使用Perl语言结合 given 实现FizzBuzzSausage问题的示例代码：

use 5.010;
for my $num (1..105) {
    given ($num) {
        my @output;
        when ($_ % 3 == 0) { push @output, 'Fizz' }
        when ($_ % 5 == 0) { push @output, 'Buzz' }
        when ($_ % 7 == 0) { push @output, 'Sausage' }
        if (@output) {