/Submit/SubmitMain.asp, line 83
####
#!/usr/bin/perl
require 5;
#use strict;
use warnings;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$url ='http://xyz.com/Submit/SubmitMain.asp';
my $res = $ua->request(POST $url,
Content_Type =>'form-data',
Content => [
Location => 'MM02',
Tickettype => '5120',
CoreDirCorrect => 1,
PhoneNumber => '12335656787',
CustomerImpact => 3,
800014118 => 0,
Severity => 'HIGH',
InitialDescription => 'Test Request',
SUBMIT1 => 'Submit Ticket Request']);
# Check the outcome of the response
if ($res->is_success) {
print $res->content;
} else {
print "Bad luck this time\n\n";
print $res->as_string;
}