Select Code to Download

#!/usr/bin/perl
use warnings;
...
}

ty = top Y      tx = top X      by = bottom Y   bx = bottom X
A1 -> ty 0 tx 0 by 49 bx 49
...
B1 -> ty 50 tx 0 by 99 bx 49
B2 -> ty 50 tx 50 by 99 bx 99

# main canvas
width:    104
...
0,50,49,99
50,50,99,99
# that reflect what I want