dev/bash/pidgin_status/pidgin_ch_sta.pl

#!/usr/bin/perl

use strict;
use XML::Simple;
use Data::Dumper;
print Dumper (XML::Simple->new()->XMLin());