<% use strict; use Win32::OLE; use vars qw( $Request $Response ); ...