Dogcows Code - chaz/p5-CGI-Ex/blob - samples/app/app1/js.pl

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5 js.pl - simple @INC js printer
   6
   7 =head1 DESCRIPTION
   8
   9 This is necessary because app1.pl hard codes path.
  10
  11 =cut
  12
  13 use strict;
  14 use warnings;
  15
  16 use CGI::Ex;
  17 CGI::Ex->print_js($ENV{'PATH_INFO'});