($b) = $VAR1 = '10.10.10.248#0.0.0.7';
(4acl_block) = $VAR1 = bless( {
                 'IBASE' => 168430328,
                 'BITS' => 29
               }, 'Net::Netmask' );
Pseudo-hashes are deprecated at /usr/apps/ucm/perl_mod/lib/perl5/site_perl/5.8.8/Net/Netmask.pm line 265, <INFILE1> line 17.
Pseudo-hashes are deprecated at /usr/apps/ucm/perl_mod/lib/perl5/site_perl/5.8.8/Net/Netmask.pm line 265, <INFILE1> line 17.
No such pseudo-hash field "168430328" at /usr/apps/ucm/perl_mod/lib/perl5/site_perl/5.8.8/Net/Netmask.pm line 265, <INFILE1> line 17.