Select Code to Download

#!/usr/bin/env perl
use strict;
...
__END__
Global symbol "@ary" requires explicit package name at test.pl line 10
+.
Execution of test.pl aborted due to compilation errors.

#!/usr/bin/env perl
use strict;
...
    # correct length
    print scalar(@$ary), "\n";
}