use enum qw(
    SSSUCCESS
    ...
    SSSTAGE1 
    ...
    SSCONVERTING
);

use CGI;
use JSON;
local $SIG{CHLD} = "IGNORE";

my $q = new CGI;
print $q->header();

my %out = (	username	=>"", 
			userid		=>"", 
			status		=>"", 
			filename 	=>"", 
			rawfilename	=> "", 
			ticket 		=>"", 
			returnvalue	=> 0, 
			message		=>"");
...

$out{returnvalue} 	= 	SSCONVERTING;
			
...

if ($ticketinfo{status} == SSSTAGE1){
	$out{returnvalue} = SSSTAGE1;
} 

my $json = encode_json \%out;
print $json;
exit 0;