Select Code to Download

my $diskpart_out = `echo $diskpart_cmd|diskpart`;

open ( FH , "diskpart rescan|" ) || die ( "Failed to open filehandle.\
+n" ) ;
          my @inFile = <FH> ; # read all at once into array
...
          {
          print $_."\t"; 
          }