Apple Store check, using AnyEvent

apple-store.pl

#!/usr/bin/perl

# AnyEvent version of https://gist.github.com/1094658

use 5.010;
use strict;
use warnings;

use AnyEvent;
use AnyEvent::HTTP;

my $w;
$w = AE::timer 0, 10, sub {
    http_head "http://store.apple.com", sub {
        my ($data, $headers) = @_;
        if ($headers->{Status} == 404) {
            say "Apple Store is down!"
        } else {
            say "Apple Store back up!"
        }
    };
};

my $cv = AE::cv;
my $brk = AE::signal 'INT', sub { $cv->send };

$cv->recv;