Perl Headers

[anthonytngo]

I'm trying to retrieve the header for this website listed below. Is there a function to pull the header from this site? I was able to pull the header from my dos prompt using the HEAD funtion. The results were:

D:\>HEAD -e http://is053018.verizon.com:8810/rcmcvp/Main.vxml
200 OK
Connection: Close
Date: Mon, 07 Aug 2006 19:08:57 GMT
Server: WebLogic WebLogic Server 6.1 SP4 11/08/2002 21:50:43 #221641
Content-Length: 5745
Last-Modified: Mon, 31 Jul 2006 13:53:30 GMT
Client-Date: Mon, 07 Aug 2006 20:08:40 GMT
Client-Peer: 151.203.131.104 :8810
Client-Response-Num: 1

My code thus far just prints the code...but I'm trying to print both the header and the code.
*************** *************** *************** *************** *********

<?xml version="1.0" ?>
<vxml version="2.0" application="Wh olesaleVoicePor talRCMC.vxml">

<!-- Main.vxml is the entry point of the application -->

<form id="Main">

<property name="bargein" value="false"/>
<catch event="error.ba dfetch">
<script>
<![CDATA[
vxmllog ("[Main] Error : error.badfetch" );
]]>
</script>
<goto next="Welcome.v xml#Welcome" />
</catch>

<catch event="telephon e.disconnect.ha ngup">
<script>
<![CDATA[
var metricsURL = "rcmcvp?Request ID=metrics&iden tifier=CallDisc onnectEvent&pro mpt=" + application.pro mpt_welcome + "&disconnectTyp e="+ application.dis connect_type_ha ngup + "&CallUUID= "+ session.call.uu id;
vxmllog("[Main.vxml] metricsURL= " +metricsURL);
]]></script>
<data expr="metricsUR L" method="GET" name="oData" fetchtimeout="5 s" />
</catch>

<block>
<!-- clear global variables -->
<clear namelist="appli cation.callerty pe application.us_ state application.ccn a application.isp name" />
<clear namelist="appli cation.region application.ord er_number application.pro duct application.rea son_code"/>
<assign name="applicati on.current_prom pt" expr="applicati on.prompt_welco me"/>
<script>
<![CDATA[
var now = new Date();
now.setTime(now .getTime() + (3*60*60*1000)) ;
var easternTime = now;
var year = easternTime.get FullYear();
var month = leadingZero(eas ternTime.getMon th()+1);
var day = leadingZero(eas ternTime.getDat e());
var hour = leadingZero(eas ternTime.getHou rs());
var min = leadingZero(eas ternTime.getMin utes());
var sec = leadingZero(eas ternTime.getSec onds());

function leadingZero(nr)
{
if (nr < 10) nr = "0" + nr;
return nr;
}

var received_timest amp = year+month+day+ hour+min+sec;
vxmllog ("Date is : " + received_timest amp);
vxmllog ("[Main] New Call to Voice Portal Application. ");

]]>
</script>
<script>
<![CDATA[
vxmllog("[Main.vxml] CallReceivedEve nt");
var metricsURL = "rcmcvp?Request ID=metrics&iden tifier=CallRece ivedEvent&CallU UID="+ session.call.uu id +"&ANI=" + session.telepho ne.ani;
vxmllog ("[Main.vxml] metrics CallReceivedEve nt="+metricsURL );
]]>
</script>
<data expr="metricsUR L" method="GET" name="oData" fetchtimeout="5 s" />
<!-- Get session ID then transfer control to Welcome.vxml -->
<submit next="GetSessio nID.jsp" method="POST" fetchtimeout="3 0s" />
</block>
</form>

<form id="MainCallFlo w">
<var name="menu_opti on"/>
<var name="menu_inpu t"/>

<catch event="telephon e.disconnect.ha ngup">
<script>
<![CDATA[
var metricsURL = "rcmcvp?Request ID=metrics&iden tifier=CallDisc onnectEvent&pro mpt=" + application.cur rent_prompt + "&disconnectTyp e="+ application.dis connect_type_ha ngup + "&CallUUID= "+ session.call.uu id;
vxmllog("[GetCompanyCodeS ubdialog.vxml] metricsURL= " +metricsURL);
]]></script>
<data expr="metricsUR L" method="GET" name="oData" fetchtimeout="5 s" />
</catch>

<!-- Get Company Code from caller -->
<subdialog name="getCompan yCode" src="GetCompany CodeSubdialog.v xml#GetCompanyC ode" cond="applicati on.companycode == undefined">
<filled>
<assign name="applicati on.current_prom pt" expr="applicati on.prompt_compa ny_code"/>
<assign name="applicati on.companycode" expr="getCompan yCode.input" />
<script>
<![CDATA[
vxmllog ("[Main.vxml#getCo mpanyCode] company code:" + application.com panycode);
]]>
</script>
</filled>
</subdialog>

<!-- Get menu option from caller. -->
<subdialog name="mainmenu" src="MainMenuSu bdialog.vxml#Me nu">
<filled>
<assign name="applicati on.current_prom pt" expr="applicati on.prompt_mainm enu"/>
<assign name="applicati on.menu_option" expr=" mainmenu.input" />
<if cond = "mainmenu.i nput == 'tt status'">
<assign name="menu_inpu t" expr="'1'" />
<script>
<![CDATA[
vxmllog ("[Main.vxml#MainC allFlow] menu option:" + application.men u_option);
var metricsURL = "rcmcvp?Request ID=metrics&iden tifier=MenuOpti onSelectedEvent &menuOption= " + menu_input + "&CallUUID= "+ session.call.uu id;
vxmllog("[Main.vxml#MainC allFlow] metricsURL= " +metricsURL);
]]>
</script>
<data expr="metricsUR L" method="GET" name="oData" fetchtimeout="5 s" />
<goto next="OptionSta tusTTSubdialog. vxml#TTStatus"/>
<elseif cond="mainmenu. input == 'lsi helpdesk'"/>
<assign name="menu_inpu t" expr="'2'" />
<script>
<![CDATA[
vxmllog ("[Main.vxml#MainC allFlow] menu option:" + application.men u_option);
var metricsURL = "rcmcvp?Request ID=metrics&iden tifier=MenuOpti onSelectedEvent &menuOption= " + menu_input + "&CallUUID= "+ session.call.uu id;
vxmllog("[Main.vxml#MainC allFlow] metricsURL= " +metricsURL);
]]>
</script>
<data expr="metricsUR L" method="GET" name="oData" fetchtimeout="5 s" />
<goto next="OptionLSI Subdialog.vxml# LSI"/>
<else/>
<assign name="menu_inpu t" expr="'3'" />
<script>
<![CDATA[
vxmllog ("[Main.vxml#MainC allFlow] menu option:" + application.men u_option);
var metricsURL = "rcmcvp?Request ID=metrics&iden tifier=MenuOpti onSelectedEvent &menuOption= " + menu_input + "&CallUUID= "+ session.call.uu id;
vxmllog("[Main.vxml#MainC allFlow] metricsURL= " +metricsURL);
]]>
</script>
<data expr="metricsUR L" method="GET" name="oData" fetchtimeout="5 s" />
<goto next="OptionOth ers.vxml#AllOth ers"/>
</if>
</filled>
</subdialog>
<block>
<disconnect/>
</block>
</form>
</vxml>

[anthonytngo]

My code thus far...

#!/usr/bin/perl

print "Content-Type: text/html\n\n";

open HTML, "Main.vxml" or die $!;

while( <HTML> ) {

print;

}

close HTML;