use strict;
use XML::Simple;

my $docid = "pounces";
my $dat = $ARGV[0];

##</code><code>##

<opt version="1.0">
  <page ui="gtk-gaim">
    <account protocol="prpl">VinsWorldcom1</account>
    <actions>
      <action type="popup-notify" />
    </actions>
  </page>
  <page ui="gtk-gaim">
    <account protocol="prpl">VinsWorldcom2</account>
    <actions>
      <action type="popup-notify" />
    </actions>
  </page>
</opt>

##</code><code>##

{C} > 750398.pl 2

{C} > diff pounces.xml "Copy of pounces.xml"

{C} > 750398.pl 1

{C} > diff pounces.xml "Copy of pounces.xml"
7a8,13
>   <page ui="gtk-gaim">
>     <account protocol="prpl">VinsWorldcom2</account>
>     <actions>
>       <action type="popup-notify" />
>     </actions>
>   </page>