print STDERR "$rec->[IMP_WG] $rec->[CSC_HAN]\n";
if ( defined( $rec->[IMP_WG] ) &&
     $rec->[IMP_WG] ne '' &&
     defined( $rec->[CSC_HAN] ) &&
     $rec->[CSC_HAN] eq '1' )
{
  print "$rec->[CLASSIF] $rec->[IMP_WG] $rec->[SRV_PLT]\n";
}