Select Code to Download

my ($miny, $maxy) = (1000000000000000000, -1000000000000000000);
my ($minx, $maxx) = (1000000000000000000, -1000000000000000000);
...
                   -height=>3400,    
                   @capture);

my ($xt0,$yt0,$xt1,$yt1) = $_canvas{0}->bbox('all');