Select Code to Download

#!/usr/bin/perl
use strict;
...

close(MYFILE);

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