Geo::GDAL3pm

  use Geo::GDAL;
  my $raster_file = shift @ARGV;
  my $raster_dataset = Geo::GDAL::Open($file);
  my $raster_data = $dataset->GetRasterBand(1)->ReadTile;
  my $vector_datasource = Geo::OGR::Open('./');
  my $vector_layer = $datasource->Layer('borders'); # e.g. a shapefile borders.shp in current directory
  $vector_layer->ResetReading();
  while (my $feature = $vector_layer->GetNextFeature()) {
      my $geometry = $feature->GetGeometry();
      my $value = $feature->GetField($field);
  }