#!/usr/bin/perl
use strict; 
use warnings; 
use XML::Parser; ...