Select Code to Download

#!/usr/bin/perl -w

...
        [534,113],[533,113],[532,113],[531,113],[530,113],
    ];
}

package Shape;

...

    return ( $minx, $miny, $maxx, $maxy );
}