my $road_group = Goo::Canvas::Group->new($root);
my $shapefile = new Geo::ShapeFile("UT_Southeast");
for(1 .. $shapefile->shapes()) {
    my @shape = ();
    my $shape = $shapefile->get_shp_record($_);
    #for(1 .. $shape->num_parts) {
    foreach my $p(1 .. $shape->num_parts){
        if ($shape->y_max <= $top_lat && $shape->y_min >= $bot_lat && 
+abs($shape->x_max) <= abs($top_long) && abs($shape->x_min) <= abs($bo
+t_long)){
            my @part = $shape->get_part($p);
            print $shape->dump;
            #draw the lines
            for(@part) {
                #print $_->X,' ',$_->Y,"\n";
                push(@shape,[$_->X,',',$_->Y]);
            }
            foreach (@shape){
                print @$_,"\n";
            }
            my $num_points = @shape;
            print "$num_points\n";
            my $road = Goo::Canvas::Polyline->new($road_group,FALSE,$n
+um_points,@shape);
        }
    }
}
[download]