This summer, I writted the line number 20.000 of Perl to do that:
Xplanet forum page: Xplanet vs. Forest Fire
Success History at PDL page

One of the scripts use these libraries:

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Cache::FileCache;
use Config::IniFiles;
use DateTime;
use File::Basename;
use File::Copy qw(copy move);
use File::stat;
use Filesys::SmbClient;
use Geo::Shapelib ':all';
use Inline ( C => DATA };
use Math::Geometry::Planar;
use PDL::Lite;
use PDL::Basic qw(transpose);
use PDL::Core qw(list cat zeroes nelem byte float null);
use PDL::Primitive qw(which where whichND);
use PDL::Slices;
use PDL::IO::FastRaw qw(mapfraw);
use PDL::Transforms::Cartography::Proj4;
use Sysadm::Install qw(say tap mv);
use XML::Simple;
[download]

Ok... I love Perl & CPAN :-)