#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;
my ($now, $then,$now1,$then1,$now_data,$then_data);
$now = "/var/www/framechat_files/reputer.now";
$then = "/var/www/framechat_files/reputer.then";
if (eval "require '$now'") {
    $now_data   = $now1;    # hash containing parsed usernodes xml
}
if (eval "require '$then'") {
    $then_data   = $then1;    # hash containing parsed usernodes xml
}
$Data::Dumper::Varname = "now";
print Dumper($now1);
print "####################################################################################\n";
$Data::Dumper::Varname = "then";
print Dumper($then1);