sub printError
{
   my $errortext = shift;
   my $errorhashref = shift;

   print "$errorhashref->{ 'Type' } Error Detected\n",
         "$errorhashref->{ 'Description' }\n",
         "Error Details: $errortext\n";

   if ( $errorhashref->{ "Fatal" } ) { die "Fatal Error Detected" };
}