Select Code to Download

sub simple_properties {
  my %properties = %{ shift() };
...
}
EOR
}

sub directional_light {
  my ($amb_intensity, $color_r, $direction_r, $intensity, $on) = (@_);
...
}
EOR
}

my (@array, @other_array) = (@{$_[0]}, @{$_[1]});