#!/usr/bin/perl use strict; use warnings; use 5.010; { # サブルーチン sub logger { my $args = shift; return $args; } say logger("sub"); # sub sub logger2 { if (@_ != 2) { say "error"; return; } my ($args, $args2) = @_; say "$args, $args2";…