#!/usr/bin/env perl
use Mojo::Base -strict;
use Mojo::UserAgent;
my $uri = 'http://efremova.info/word/slovar.html';
my $sel = 'td#centerCnt ol li';
my $ua = Mojo::UserAgent->new();
my $text = $ua->get($uri)->res->dom->at($sel)->text;
tar -cvpf - /home | pv -s `du -sb /home | cut -f1` > /usr/backup/home.tar