webcam_pos.pl

#!/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",
             );