Select Code to Download

Use of uninitialized value $sv_a in concatenation (.) or string at ./s
+cope_t.pl line 15.
DumpValue: sv_a ...

#!/usr/local/bin/perl
use 5.010;
...
   bless($obj_hv, $_[0]);
 }
1;