$request = "abc";
$response = "test";

sub request_response

{

my($request,$response) = @_;

my $success;


if(($request =~ /^JI/) || ($request eq "JO"))

{

$success = 1;

$request = "1A Transmission:\n".$request;

}


elsif(($response eq "OK INFORMATION DELETED") || ($response =~ /DESCRIPTION ELEMENT DOES NOT EXIST/))

{

$success = 1;

$response = "1A Response:\n".$response;

}


my $transaction = join("\n",$request,$response);



print STDOUT $transaction."\n";

print STDERR $transaction unless ($success == 1);


}