sub sixad {
for my $t ( @file1 ) {
   if( $t =~ m/No controller found on USB busses./ ) { 
    &warning; 
    return 
    }
   
   }

if ( $Count gt 0 ) {
   open my $OutFile2, "+>", "tmp2", or die "Can't open file: $!";

my @sixad = qw(ls >tmp2);
my $OutPut2 = system( "@sixad" ); 
my @file2 = <$OutFile2>;

while( <@file2> ) {
#for my $n ( @file2 ) {
   $Pane->insert("end", "$_". "\n");
   #return;
   }

   close($OutFile2);      
   return;
   }
      else {
      &warning; 
      return;
      }
      
};