use Modern::Perl;
use IO::All;

my $text < io('http://web.etf.cuni.cz/ETF-104-version1.txt');

say $text;