my $ua  = LWP::UserAgent->new;
my $url = 'http://xyz.com/Submit/SubmitMain.asp';

my $res = $ua->post( $url, {
  Location => 'MM02',
  Tickettype => '5120', 
  CoreDirCorrect => 1,
  PhoneNumber => '12335656787',
  CustomerImpact => 3,
  800014118 => 0,
  Severity => 'HIGH',
  InitialDescription => 'Test Request',
  SUBMIT1 => 'Submit Ticket Request'
}
);