view release on metacpan or  search on metacpan

cgi-bin/web-iPerl  view on Meta::CPAN

	    'wml?' =>		[-type => 'text/vnd.wap.wml'],
	    'sgm?l?' =>		[-type => 'text/sgml'],
	    'utx?t?' =>		[-type => 'text/plain; charset=UTF-8'],
	    'ps' =>		[-type => 'application/postscript'],
	    'xbm?' =>		[-type => 'image/x-xbitmap'],
	    'xpm?' =>		[-type => 'image/x-xpixmap'],
	    '' =>		[-type => 'text/plain'];
}


my( $directory, $file ) = split m!/(?=[^/]*$)!, $ENV{PATH_TRANSLATED};

@type = (@{_case $file, @autotype_by_name},
	 -X_Powered_By => "Text::iPerl/$VERSION <http://beam.to/iPerl>");

$header = header @type;

local @autostyle_by_contents = @autostyle_by_contents;
local @autostyle_by_name = @autostyle_by_name;
local @include = @include;
local @opt_I = @opt_I;