$err = $SiTef->ExecutaLoopAutorizacao( $SiTef, $params, $data );
  while ( $err eq '10000' ) {
    #print Dumper( $params, $data );
    #print "\nRETORNO: $err\n";
    
    if ( $params->{UserMessage} ) { $Status = $params->{Message}; }
    
	$err = $SiTef->ExecutaLoopAutorizacao( $SiTef, $params, $data );
  }

##</code><code>##

my $Status;
my $lblStatus = $mw->Label(-textvariable=>\$Status)->pack();