Help for this page

Select Code to Download

Select or download this

sub make_key {
  my $x = shift;
  pack 'N*', @{$x->{Path}};
}