Help for this page

Select Code to Download


  1. or download this
    1) print "email:  ${$self->{_product}}->[0]{EMAIL} \n";
2) print "total: (scalar(keys  %{$self->{_alllogins}}))\n";
3) if (  ${$self->{_product}}->[0]{EMAIL} > (scalar(keys %{$self->{_al
+llogins}})) ) {
  2. or download this
    1) my $allowable = scalar( ${$self->{_product}}->[0]{EMAIL});
2) my $current   = (scalar(keys  %{$self->{_alllogins}}));
3) if ($current ge $allowable) {