#!/usr/bin/perl

use warnings;

use strict;

use Net::Wake qw(by_udp);

my $reveille;

$reveille = Net::Wake::by_udp('255.255.255.255','ma:ca:dd:re:ss');

print $reveille;

sleep 120;

exit;