#!/usr/bin/perl -w
###########################################
# myx10 -- Switch X10 devices on and off
# Mike Schilli, 2007 (m@perlmeister.com)
###########################################
use strict;
use MyX10;
my($device, $command) = @ARGV;
my $x10 = MyX10->new();
$x10->send($device, $command);