Hi guys i try to run this script but i get this error :

Code:
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:


Undefined subroutine &main::HTMLGetRequest called at c:\inetpub\wwwroot\cgi-bin\jukebox2006\textchat\pop.pl line 22.
This is the way i call it:
http://localhost/cgi-bin/jukebox2006...p.pl?name=ID11

Could any one help me fix this error. I am run perl locally and using iis5 .Thanks


Code:
#!/usr/bin/perl

&HTMLGetRequest;
#these are the variable  recived from the edit box.We declare them here
$fname=$rqpairs{"name"}; 


# Set Your Options:
$redirection = 0;       # 1 = Yes; 0 = No

#Note: 
# SONG LOCATIONS


#Defult Subroutines

&HTMLContentType; 


print <<method;

<html>

<head>

<title> Music</title>
</head>

<frameset framespacing="0" border="0" rows="85,70,*" frameborder="0">
  <frame name="top" scrolling="no" noresize target="middle" src="http://localhost/jukeboxwall.html">
  <frameset cols="92,300,40%">
  <frame name="middle" target="bottom" src="http://localhost/jukeboxwall.html" scrolling="no" noresize>
    <frame name="middle1" src="http://localhost/textchat/popjukebox.pl?name=$fname" scrolling="no" noresize>
    <frame name="middle2" src="http://localhost/jukeboxwall.html" scrolling="no" noresize>
  </frameset>
  <frame name="bottom" src="http://localhost/jukeboxwall.html" scrolling="no" noresize>
  <noframes>

<body bgColor=#336699>
    
</body>
</html>




method