Select Code to Download

my @coords = $can->bbox('all') || ( 0, 0, 5, 5);

use strict;
use warnings;
...

my @list3 = $c->bbox('all') or (1,2,3);
print "List3:\n", Dumper(\@list3), "\n";

Useless use of a constant in void context at /tmp/crap line 10.
Useless use of a constant in void context at /tmp/crap line 14.
...
          102,
          55
        ];