Help for this page
H: 1.000000 B: 2,0,-1.57
$strASub = ''; open(ASUBFILE,"/A/sub/$strTName") or die "can't open the asub file: $s +trTName : $!\n"; ... $strASub .= $_; } close(ASUBFILE) or die "can't close the asub file: $strTName :$!\n";