My Code Snippet.

Code:
#!perl -w

#############################################################################
#






use SOAP::Lite;
use POSIX qw( strftime );
use warnings;
my $data_date = strftime("[%m/%d/%Y %H:%M:%S]", localtime);
my %InputParms;
my $temp_elements;
my $response = 1;

	##############################################
...