1@rem = '--*-Perl-*--
2@echo off
3if "%OS%" == "Windows_NT" goto WinNT
4perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
5goto endofperl
6:WinNT
7perl -x -S %0 %*
8if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
9if %errorlevel% == 9009 echo You do not have Perl in your PATH.
10if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
11goto endofperl
12@rem ';
13#!perl
14#line 15
15
16use CGI::ExtDirect;
17
18use RPC::ExtDirect::Test::Pkg::Env;
19
20my %headers = ();
21
22my $exd = CGI::ExtDirect->new( debug => 1 );
23
24print $exd->route(%headers);
25
26exit 0;
27
28__END__
29:endofperl
30
31