Select Code to Download

sub empty {
    my $r = shift;
...
}
$a = ''; $b = {}; $c = [];
if(empty($a) && empty($b) && empty($c)) { print "PASS"; }