Веб-сервер на SED(е)

[Duwaz]

Что-то совсем не получается
Я ушёл совсем не далеко
Я так понял, что нужно сделать, что-то типо этого:

#!/usr/bin/perl
use LWP::Socket;
 
$headers = "HTTP/1.1 200 OK\r\nContent-Type: text/html\r\n\r\n";
$sock = new LWP::Socket();
$sock->bind('127.0.0.1', '8080');
$sock->listen(10);
 
while ( $socket = $sock->accept(10) ) {
    $content = "Hello from Habr";
    $file_name; $socket->read( \$file_name );
    $file_name =~ s/GET \/([^ ]*) HTTP.+/$1/s;
    if ( open FILE, '<', $file_name ) {
        $content = join "", <FILE>; close FILE;
    }
    $socket->write( $headers . $content );
    $socket->shutdown();
}

код я взял отсюда http://habrahabr.ru/post/69411/

Тут код на perl(е), но ни perl, ни sed практически не знаю.
Обращаться вроде бы больше некуда, так что прошу помощи тут!

[Naive]

А что именно не получается то?
Скрипт не запускается? Сервер не пингуется? Ответа нет?

[Duwaz]

1) На учебном сервере запустить код на перле не удаётся:
Can't locate LWP/Socket.pm in @INC (@INC contains: /usr/perl5/5.8.4/lib/i86pc-solaris-64int /usr/perl5/5.8.4/lib /usr/perl5/site_perl/5.8.4/i86pc-solaris-64int /usr/perl5/site_perl/5.8.4 /usr/perl5/site_perl /usr/perl5/vendor_perl/5.8.4/i86pc-solaris-64int /usr/perl5/vendor_perl/5.8.4 /usr/perl5/vendor_perl .) at file.pl line 2.
BEGIN failed--compilation aborted at file.pl line 2.
Жду ответа от преподавателя...

2) При переписывании на sed "use LWP::Socket" нужно ли изменять на что-то и на что? Я думаю, что такие же действия с сокетами можно оставить. А что тогда придётся координально менять?

[Duwaz]

1) Модуля такого нет(