sub is_config_new {
        my $fn = shift;

        my %hosts = { '192.168.1.243' => 0 };

        my ($host,$taint);
        # Probe remote hosts for freshness
        foreach $host (keys %hosts){
                my $remotestat = qx! sudo ssh $host 'perl -e "print ((stat(qq~$fn~))[9]);"'!;
                if( $remotestat != ((stat(qq~$fn~))[9]) ) {
                        $hosts{$host} = 0; } else { $hosts{$host} = 1; }
                }
        foreach $host (keys %hosts) { if( !$hosts{$host} ) { $taint = 1; } }

        if( $taint == 1 ) {
            # print a conflict page
        } else { return; } # return to proceed with config

##</code><code>##

        foreach $host (keys %hosts){
                print "<tr><td>$host</td>";
                if ( $hosts{$host} ) {
                        print "<td align=center><img src=/nagios/images/greendot2.gif border=0></td></tr>";
                } else {print "<td align=center><img src=/nagios/images/reddot.gif border=0></td></tr>"; }
        }