pricina chyby v tomto skriptu

[Petr Bartos]

Dobry den,
mam problem s timto skriptem, na radku za 'Timeout' mi to hlasi:
'Can't use an undefined value as a symbol reference'
Ten skript neni cely, zatim by mel delat skoro totez co v LWP::Simple
prikaz 'get'. Jsem v perlu zacatecnik a uvitam jakoukoliv radu. 

Petr Bartos

#!/usr/bin/perl
#use IO::Socket::INET;
use IO::Socket;
 
$method = "GET";
$host = "http://www.fi.muni.cz";
$path = "/~xbartos5/rozvrh.cgi";
$referer = "http://www.fi.muni.cz/~xbartos5/menu.htm";
$socket = new IO::Socket::INET( PeerAddr => $host,
PeerPort => 80,
Proto => 'tcp',
Type => SOCK_STREAM,
Timeout => '2') or print "$!";
print $socket "$method $host$path HTTP/1.0\nreferer: $referer\n";
print $socket "User-Agent: $ENV{'HTTP_USER_AGENT'}\n\n";
@output = <$socket>;
close ($socket);
foreach $n (0..9){shift(@output);}
 
print $output;
 
exit(0);