<%@Language=PerlScript%> <% use strict; use Win32::ASP; use vars qw($Response $Request $Server); # Turn on buffering...allows us # to send headers whenever we want. $Response->{Buffer} = 1; # turn OFF page caching. This will hopefully # fix some of IIS's HORRIBLE shortcomings. $Response->{Expires} = 0; $Response->AddHeader('pragma', 'no-cache'); $Response->AddHeader('cache-control','private'); $SIG{__DIE__} = sub { $Response->Write("

Death!

"); }; $SIG{__WARN__} = sub { $Response->Write("

Warning!

"); }; %> <%= my $bad_value = 4/0 %> #### PerlScript Error error '80004005' (in cleanup) Illegal division by zero /index.asp, line 18