sleep 15;
        # Save connections
        open CFILE, '>', $ENV{HOME}. '/.CutSys/Connections' or
        print "Couldn't save connections $!\n";
        my @cfile_key = grep !$connect{$_}{type}, keys %connect;
        my %cfile;
        foreach (@cfile_key) {
                $cfile{$_} = $connect{$_};
        }
        print CFILE Dump %cfile;
        close CFILE;
        sleep 15;