#!/usr/bin/perl use strict; use warnings; my $print_if_multiple_of = sub { my ($str, $base) = @_; return sub { my $num = shift; return ( $num % $base == 0 ) ? $str : ""; }; }; my $fizz = $print_if_multiple_of->("Fizz", 3); my $buzz = $prin…