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