#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI::Pretty qw(:all);

my $username = param('username');
my $password = param('password');


read(STDIN, $buffer,$ENV{'CONTENT_LENGTH'});
$buffer =~ tr/+/ /;
$buffer =~ s/\r/ /g;
$buffer =~ s/\n/ /g;
@pairs = split(/&/,$buffer);
foreach $pair(@pairs){
($key,$value)=split(/=/,$pair);
$formdata{$key}.="$value";
}
#delete file
$version=$formdata{'version'};
$Chassis=$formdata{'Chassis'};
$Assigned=$formdata{'Assigned'};.....