:P

#!/usr/bin/env perl
use strictures;
use URI;
use Data::Dumper;
use WWW::Mechanize;

@ARGV == 4 or die "Give satellite id, service id, stime, and etime!\n"
+;

my ( $sat, $svc, $stime, $etime ) = @ARGV;

my $uri = URI->new("http://10.0.1.2:8080/frql");
my %args = ( alarm_days => 0,
             alarm_id   => 4,
             alarm_mode => 1,
             alarm_type => 1,
             cmd        => "set_alarm",
             svc_type   => 0,
             sat_idx    => $sat,
             svc_idx    => $svc,
             stime      => $stime,
             etime      => $etime );

$uri->query_form( %args );

print $uri, $/;
print Dumper({ $uri->query_form });

my $mech = WWW::Mechanize->new;
$mech->get($uri);

print $mech->response->as_string, $/;
[download]

Adjust, amend as necessary.