#!/usr/bin/perl
require 5.005;
BEGIN { $| = 1; }
use strict;
use bytes;
#open (EL, '>>rocklog.txt') || die "Can't open rocklog.txt: $!\n"; select(EL); $|=1;
require('r2inter.pl');
use webinter;
use IO::Socket;
use IO::Select;
use Data::Dumper;
use Benchmark;