sub propagate {
        my $config_file = shift;
        my $addr;
        my %FR_servers = ( "XX.XX.XX.XX" => 0 );      # key: address of FR servs val: sucess/fail

        ####### Begin Dumb Propagate Function #######
        foreach $addr (keys %FR_servers) {
                if( system("scp $config_file $addr:/usr/local/etc/raddb/") == 0 ){
                        $FR_servers{$addr} = 1;                 # mark for user feedback
                        print "good<br>";
                        system("ssh $addr \"$reloadcmd\"");     # reload freeradius remotely
                } else { $FR_servers{$addr} = 0; print "bad<br>"; }
        }
        ####### Finish Dumb Propagate Function #######

        ####### Draw Propagate Results #######
        $query->header();
        foreach $addr (keys %FR_servers){

                print "$_       $FR_servers{$addr}<br>";
        }

}