#!/usr/local/bin/perl -w
 use strict;
 use ZWave::Protocol;
 use Log::Log4perl qw(:easy);

 Log::Log4perl->easy_init($DEBUG);

 my $zwave = ZWave::Protocol->new(
   device => "/dev/ttyUSB0" );

 $zwave->connect or
   die "Failed to connect to " .
      $zwave->device;

 my $node_id = 3;

 for my $state ( 255, 0 ) {

   $zwave->payload_transmit(
     0, 0x13,
     $node_id, 0x03, 0x20, 0x01,
     $state, 0x05 );

    sleep 1;
 }