#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Mojo::UserAgent;
use Data::Dumper;



sub say { print Dumper @_; }


my $ua = Mojo::UserAgent->new;


$ua->ioloop->timer(3 => sub {

    print STDOUT "Your time is gone!!!!\n";
    shift->stop;
    });

my $tx = $ua->get('http://www.webvidal.ru/Alf_Drug_new.aspx');

die $tx->error if $tx->error;

say "Lenght page is " . (length($tx->res->body)/1024) . "Kb";