"my" variable $file masks earlier declaration in same scope at /usr/local/lib/perl5/site_perl/5.6.1/XML/Stream/Parser.pm line 298.

Use of uninitialized value in string ne at /usr/local/lib/perl5/site_perl/5.6.1/XML/Stream/Parser.pm line 134.

Use of uninitialized value in split at /usr/local/lib/perl5/site_perl/5.6.1/Net/Jabber.pm line 759.

##</code><code>##

sub parsefile {
  my $self = shift;
  my $file = shift;

  open(FILE,$file);
  my $file;
  while(<FILE>) { $file .= $_; }
  ...