#!/usr/bin/perl -w

use CGI qw/:standard/;

# Print the content type
print header();

# Print the html header
print start_html(-title=>'Message Sent',-bgcolor=>'white');

# Print the page header
print h1("Message Sent");

# Print a blank line
print p();

# Allocate varibles
my $sender;
my $message;
my $command;

# Figure out what command to run and build the command line

$sender =  parm('From');
$message = parm('Message');

$command = "quicksms " . $sender . " " . $message;

# Print to actual command that will be run
print "Executing the command: " . b($command);

# Print the html footer
print end_html();