[bluethundr@cc126-200:~/perl] $:./3par-test5.pl 
Use of uninitialized value in pattern match (m//) at ./3par-test5.pl line 29, <MYFILE> line 1.
Use of uninitialized value in concatenation (.) or string at ./3par-test5.pl line 30, <MYFILE> line 1.
Use of uninitialized value in concatenation (.) or string at ./3par-test5.pl line 30, <MYFILE> line 1.
Use of uninitialized value in concatenation (.) or string at ./3par-test5.pl line 30, <MYFILE> line 1.
Use of uninitialized value in concatenation (.) or string at ./3par-test5.pl line 30, <MYFILE> line 1.