Select Code to Download

#!/usr/bin/perl
my @x_points = ( 100, 200 );
...
        );
}
print q(</MAP>);

######################################################  
#                                                    #  
...
#                                                    #  
#                                                    #  
######################################################