#!/usr/bin/perl -w
 use strict;
 use Power::Outlet::WeMo;

 my $lamp = Power::Outlet::WeMo->new(
     host => "192.168.1.139" );

 $lamp->on;
 sleep 1;
 $lamp->off;