Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use Mojo::UserAgent;
- my $ua = Mojo::UserAgent->new;
- my $tx = $ua->max_redirects(100)->get('https://eztv.ch/showlist/');
- if (my $res = $tx->success) {
- print $res->body;
- } else {
- my $err = $tx->error;
- die "$err->{code} response: $err->{message}" if $err->{code};
- die "Connection error: $err->{message}";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement