Select Code to Download

#!/usr/bin/perl -w
use Expect;
...

#print $result;
print join ("\n", @result);

(...the login subroutine's output is here...)
administrator@cli> 
phydrv
...
administrator@cli> 
administrator@cli> logout
(...the logout subroutine's output is here...)

phydrv
======================================================================
+=========
PdId Model      Type     CfgCapacity Location      OpStatus   ConfigSt
+atus     
======================================================================
+=========
1    WDC WD2503 SAS HDD  232.83 GB   Encl1 Slot1   OK         Unconfig
+u