test

use LWP::UserAgent;
use HTTP::Cookies;
use warnings;
use URI::Escape;
use Encode qw/from_to/;
use POSIX qw/strftime/;

$some = "тестовая строка\n\n";
print $some;

$browser = LWP::UserAgent->new;
$page = $browser->get("http://ithappens.ru/random/")->as_string;
if($page =~ /p class="text">(.*)<\/p>/) {
print $1;
} else {
print "FAIL!";
}

print "\n\ndone!";
sleep(10)