#Perl
use 5.010;
use warnings;
use strict;
use Socket;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(agent=>"Perl browser");
my $content = $ua->get("http://kuraev.ru/smf/")->content;

my $port = 3030;
$port = getservbyname($port,'tcp') if $port =~ /\D/;
	die "Invalid port" unless $port;
socket(S,PF_INET,SOCK_STREAM,0) || die "socket: $!";
	say "socket good";
setsockopt(S,SOL_SOCKET,SO_REUSEADDR,pack('l',1)) || die "setsockopt: $!";
	say "setsockopt good";
bind(S,sockaddr_in($port,INADDR_ANY)) or die ("bind $!");
	say "bind good";
listen(S,SOMAXCONN) or die("listen $!");
	say "listen good";
select(STDOUT);
for ( ; accept(S1,S); close(S1))
{
say "accept good";
while(1)
	{
	#$tmp = send(S1,$content,0) or die ("send $!");
	print S1 $content;
	#sleep(5);
	#last;
	#shutdown(S1,1);
	}
}

sub file_get_contents 
{ 
  my ($filename) = @_; 
  open IN, "<", $filename or return undef; 
  my @all = <IN>; 
  close IN; 
   
  my $res = join("", @all); 
  return $res; 
}