{
	package Devel::PL_origargv;
	use 5.008;
	use Inline C => q{
		int _argc () {
			return PL_origargc;
		}
		char* _argv (int x) {
			return PL_origargv[x - 1];
		}
	};
	sub get {
		return _argc unless wantarray;
		map _argv($_), 1 .. _argc;
	}
}

print "ARG: $_\n" for Devel::PL_origargv->get;