#!/usr/bin/perl
use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use Net::Rovio;

my $rovio_login = 'xxx';
my $rovio_password = 'xxxxxx';
my $rovio_host = '172.20.21.14';

my $rovio = Net::Rovio->new($rovio_host,$rovio_login,$rovio_password);
my $c = 0;
while($c<10)
{
	$rovio->lights_blue("00100000");  # Turn on right front LED
	select(undef,undef,undef,.5);
	$rovio->lights_blue('off');
	select(undef,undef,undef,.5);
	$c += 1;
}
$rovio->lights_blue('off');