radio.pl

use Mojo::Base -strict;

use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new->max_redirects(10);

my $success = 0;
$ua->on(start => sub {
  my ($ua, $tx) = @_;
  $tx->res->content->unsubscribe('read')->on(read => sub {
    my (undef, $chunk) = @_;
    $success = 1 if length $chunk;
    $tx->res->error({message => 'interrupting stream'});
  });
});

my $url = 'http://rrr.sz.xlcdn.com/?account=rtv_oost&file=RadioOost_mp3&type=live&service=icecast&output=m3u';
$ua->get($url);

say $success ? 'Success' : 'Failure';