#!/usr/bin/perl
use LWP::UserAgent;
# $ARGV[0] -> [1-15] Posicion memorizada deseada
die "$0 [1-15]" unless ($ARGV[0]>= 1 && $ARGV[0] <= 15);
my $ip_webcam="192.168.1.46";
my $Auth="LaLaLaLaLaLaLaLaLa";
my $value= 30 + ( ($ARGV[0] * 2) - 1);
my $browser = LWP::UserAgent->new;
my $URL="http://".$ip_webcam."/decoder_control.cgi?command=".$value; #Vete a la posicion memorizada seleccionada
my $response = $browser->get(
$URL,
"Authorization" => "Basic $Auth",
);