#!/usr/bin/perl
use strict;
use warnings;

my $o=`/usr/local/bin/curl -o /dev/null -u USERNAME:PASSWORD 'http://CAMERA.IP.ADDRESS:PORT/set_alarm.cgi?next_url=alarm.htm&motion_armed=0&motion_sensitivity=0&motion_compensation=1&sounddetect_armed=0&sounddetect_sensitivity=0&iolinkage=0&mail=0&upload_interval=0&schedule_enable=0&schedule_sun_0=0&schedule_sun_1=0&schedule_sun_2=0&schedule_mon_0=0&schedule_mon_1=0&schedule_mon_2=0&schedule_tue_0=0&schedule_tue_1=0&schedule_tue_2=0&schedule_wed_0=0&schedule_wed_1=0&schedule_wed_2=0&schedule_thu_0=0&schedule_thu_1=0&schedule_thu_2=0&schedule_fri_0=0&schedule_fri_1=0&schedule_fri_2=0&schedule_sat_0=0&schedule_sat_1=0&schedule_sat_2=0' 2>/dev/null`;
print "Content-Type: text/plain\n\nDISARMED!\n";