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="WholesaleVoicePortalRCMC.vxml">

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

<form id="Main">

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

<catch event="telephone.disconnect.hangup">
<script>
<![CDATA[
var metricsURL = "rcmcvp?RequestID=metrics&identifier=CallDisconnec tEvent&prompt=" + application.prompt_welcome + "&disconnectType="+ application.disconnect_type_hangup + "&CallUUID="+ session.call.uuid;
vxmllog("[Main.vxml] metricsURL= " +metricsURL);
]]></script>
<data expr="metricsURL" method="GET" name="oData" fetchtimeout="5s" />
</catch>

<block>
<!-- clear global variables -->
<clear namelist="application.callertype application.us_state application.ccna application.ispname" />
<clear namelist="application.region application.order_number application.product application.reason_code"/>
<assign name="application.current_prompt" expr="application.prompt_welcome"/>
<script>
<![CDATA[
var now = new Date();
now.setTime(now.getTime() + (3*60*60*1000));
var easternTime = now;
var year = easternTime.getFullYear();
var month = leadingZero(easternTime.getMonth()+1);
var day = leadingZero(easternTime.getDate());
var hour = leadingZero(easternTime.getHours());
var min = leadingZero(easternTime.getMinutes());
var sec = leadingZero(easternTime.getSeconds());

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

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

]]>
</script>
<script>
<![CDATA[
vxmllog("[Main.vxml] CallReceivedEvent");
var metricsURL = "rcmcvp?RequestID=metrics&identifier=CallReceivedE vent&CallUUID="+ session.call.uuid +"&ANI=" + session.telephone.ani;
vxmllog ("[Main.vxml] metrics CallReceivedEvent="+metricsURL);
]]>
</script>
<data expr="metricsURL" method="GET" name="oData" fetchtimeout="5s" />
<!-- Get session ID then transfer control to Welcome.vxml -->
<submit next="GetSessionID.jsp" method="POST" fetchtimeout="30s" />
</block>
</form>

<form id="MainCallFlow">
<var name="menu_option"/>
<var name="menu_input"/>

<catch event="telephone.disconnect.hangup">
<script>
<![CDATA[
var metricsURL = "rcmcvp?RequestID=metrics&identifier=CallDisconnec tEvent&prompt=" + application.current_prompt + "&disconnectType="+ application.disconnect_type_hangup + "&CallUUID="+ session.call.uuid;
vxmllog("[GetCompanyCodeSubdialog.vxml] metricsURL= " +metricsURL);
]]></script>
<data expr="metricsURL" method="GET" name="oData" fetchtimeout="5s" />
</catch>

<!-- Get Company Code from caller -->
<subdialog name="getCompanyCode" src="GetCompanyCodeSubdialog.vxml#GetCompanyCode" cond="application.companycode == undefined">
<filled>
<assign name="application.current_prompt" expr="application.prompt_company_code"/>
<assign name="application.companycode" expr="getCompanyCode.input" />
<script>
<![CDATA[
vxmllog ("[Main.vxml#getCompanyCode] company code:" + application.companycode);
]]>
</script>
</filled>
</subdialog>

<!-- Get menu option from caller. -->
<subdialog name="mainmenu" src="MainMenuSubdialog.vxml#Menu">
<filled>
<assign name="application.current_prompt" expr="application.prompt_mainmenu"/>
<assign name="application.menu_option" expr=" mainmenu.input" />
<if cond = "mainmenu.input == 'tt status'">
<assign name="menu_input" expr="'1'" />
<script>
<![CDATA[
vxmllog ("[Main.vxml#MainCallFlow] menu option:" + application.menu_option);
var metricsURL = "rcmcvp?RequestID=metrics&identifier=MenuOptionSel ectedEvent&menuOption=" + menu_input + "&CallUUID="+ session.call.uuid;
vxmllog("[Main.vxml#MainCallFlow] metricsURL= " +metricsURL);
]]>
</script>
<data expr="metricsURL" method="GET" name="oData" fetchtimeout="5s" />
<goto next="OptionStatusTTSubdialog.vxml#TTStatus"/>
<elseif cond="mainmenu.input == 'lsi helpdesk'"/>
<assign name="menu_input" expr="'2'" />
<script>
<![CDATA[
vxmllog ("[Main.vxml#MainCallFlow] menu option:" + application.menu_option);
var metricsURL = "rcmcvp?RequestID=metrics&identifier=MenuOptionSel ectedEvent&menuOption=" + menu_input + "&CallUUID="+ session.call.uuid;
vxmllog("[Main.vxml#MainCallFlow] metricsURL= " +metricsURL);
]]>
</script>
<data expr="metricsURL" method="GET" name="oData" fetchtimeout="5s" />
<goto next="OptionLSISubdialog.vxml#LSI"/>
<else/>
<assign name="menu_input" expr="'3'" />
<script>
<![CDATA[
vxmllog ("[Main.vxml#MainCallFlow] menu option:" + application.menu_option);
var metricsURL = "rcmcvp?RequestID=metrics&identifier=MenuOptionSel ectedEvent&menuOption=" + menu_input + "&CallUUID="+ session.call.uuid;
vxmllog("[Main.vxml#MainCallFlow] metricsURL= " +metricsURL);
]]>
</script>
<data expr="metricsURL" method="GET" name="oData" fetchtimeout="5s" />
<goto next="OptionOthers.vxml#AllOthers"/>
</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;