Select Code to Download

#!/usr/bin/perl
...
...

sub build_polygon {
...

sub calcMagic
{
...
    }
    return $mod;
}