text:  :)
  FW module.
  I'd happily accept a patch to XSify the module, but I'm not going to write that myself. It seems more effort than would be deserved by this silly little module.
  Um, when you build it on your machine, copy the .xs files it generates, the end
  package Devel::PL_origargv;
  use strict;
  use warnings;
  our $AUTHORITY = 'cpan:TOBYINK';
  our $VERSION = '0.004';
  require DynaLoader;
  @Devel::PL_origargv::ISA = qw( Exporter DynaLoader);
  bootstrap Devel::PL_origargv;
  sub get {
  return _my_argc() unless wantarray;
  map _my_argv($_), 1 .. _my_argc();
  }
  1;
  [download]
  #include "EXTERN.h"
  #include "perl.h"
  #include "XSUB.h"
  MODULE = Devel::PL_origargv PACKAGE = Devel::PL_origargv
  PROTOTYPES: DISABLE
  int
  _my_argc ()
  CODE:
  RETVAL = PL_origargc;
  OUTPUT:
  RETVAL
  char *
  _my_argv (x)
  int x
  CODE:
  RETVAL = PL_origargv[x - 1];
  OUTPUT:
  RET