(not very good) perl example and README