Select Code to Download

my ($stars, $stripes) =
    [[120,120],[50,682],[1952,2001]], # etcetera... [left,top]
...
                        -width => 20,
                        -height => 20) }
# similar for stripes

$stripes = [ map { [ 0, 50*$_ ] } (0..6) ];
    # or something like that