#!/usr/bin/perl print "Use extract-polygon.pl instead of $0.\n";