#!/usr/bin/perl
#
# This example script sends out Hello World packets
# every five seconds to IPv6 Link Local SAP group.
#

use Net::SAP;
use Data::Dumper;
use strict;


# Autoflush STDOUT
$| = 1;


my $sap = new Net::SAP( 'ipv6-link' );
die "Failed to create Net::SAP" unless ($sap);

my $packet = new Net::SAP::Packet();
$packet->payload_type( 'text/plain' );
$packet->payload( 'Hello World!' );
$packet->compressed( 0 );

print Dumper( $packet );


# Send the packet repeatedly
while (1) {
	
	$sap->send( $packet );
	print ".";

	sleep 5;
}