Select Code to Download

$VAR1 = bless( {
                 'at0' => [
...
                 '.fieldnames' => {},
                 'escape' => 1
               }, 'CGI' );

#! perl -slw
use strict;
...
__END__
P:\test>junk3 at0=1 at0=2 at0=3
ARRAY(0x195f6c4) => 1 2 3