LWRF_Switch.pl

#!/usr/bin/perl
use IO::Socket;
use strict;

#Change the PeerAddr to your Lightwave RF wifi link IP Address

my $sock = IO::Socket::INET->new(
    Proto    => 'udp',
    PeerPort => 9760,
    PeerAddr =>  '192.168.1.21',
) or die "Could not create socket: $!\n";

my $LWRFCmd =   "000, !R" . $ARGV[0] . "D" . $ARGV[1] . "F" . $ARGV[2] . "|";

$sock->send($LWRFCmd) or die "Send error: $!\n";