## Off the cuff . . .
sub zglob {
  my $glob = shift;

  open( my $z, qq{zsh -c 'print -N "$glob"' |} ) or die "can't open globpipe: #!\n";

  local( $/ ) = "\0";

  my @ret;
  while( <$z> ) {
    chomp;
    push @ret, $_;
  }

  close( $z );

  return @ret;
}