Select Code to Download

#! perl -w
...
you can redistribute it and/or modify it under the same terms as Perl 
+itself.

=cut

#! perl -w

...
    print scalar(@a) == 5 ? "ok" : "not ok", " 3\n";
}